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Vorwort 


Die auf das Rechnermodell PC-1500') abgestimmten Programme stützen sich auf eine 
Vielzahl in der Praxis bewährter Problemlösungen. In der Sammlung wird nicht ver- 
gessen, daß es gerade das Spiel ist, das den Menschen besonders fasziniert. Mit einem 
Spiel läßt sich darüberhinaus auch nahezu problemlos in die elektronische Datenver- 
arbeitung eindringen, und es sollte auch das Spiel sein, das uns ja die Grundbegriffe der 
genannten Materie Stück für Stück näherbringt. 

Die Programme sind sorgsam erstellt und genau geprüft. Sie sind auf die dem PC-1500 
eigene BASIC-Version abgestimmt, lassen sich aber unter Beachtung besonderer Vor- 
kehrungen auch auf anderen, ähnlich gebauten Rechnermodellen verwenden. Das Be- 
deutsame an den hier vorgestellten Problemlösungen ist die Tatsache, daß die Programme 
allein für sich genutzt werden können; das ist ja schließlich der Sinn der Sache. Sie kön- 
nen aber auch als Teile in umfangreichere Problemlösungen eingebaut werden, in denen 
dabei einige leicht durchführbare Programmanpassungen vorgenommen werden müssen. 


In diesem Zusammenhang darf der Fa. Sharp, Hamburg aufrichtiger Dank für die Unter- 
stützung ausgesprochen werden; ohne diese hätte die Erstellung praxisbezogener Anwen- 
dungsprogramme nicht durchgeführt werden können. Diese Programmsammlung liefert 
auch den Nachweis, daß ein Taschencomputer nicht allein als Heimcomputer, sondern 
auch in der Tagespraxis der Wirtschaft eingesetzt werden kann. Ob es sich dabei um 
kaufmännische Probleme (z.B. Zinsenrückrechnung), Energieprobleme (z.B. Wärmerech- 
nungen), allgemeine technische Probleme (z.B. Erstellung eines Auszugs für Bewehrungs- 
stahl für Stahlbetonbauteile) oder Probleme von Produktionsbetrieben (Zeitaufnahmen 
vor Ort und deren Auswertung im Büro in einem) handelt, spielt dabei keine Rolle. 

Die vorliegende Sammlung gliedert sich in die drei Gruppen: 


© Basisprogramme, 

e Spiel und Hobby und 

© Praktische Anwendungen. 

Sollte sich trotz sorgsamer Prüfung ein Fehler eingeschlichen haben, danken Verlag und 


Autor im vorhinein für eine Benachrichtigung und für das entgegengebrachte Verständnis. 


Graz, im September 1984 Gerfried Tatzl 


1) Alle Aussagen, die sich auf den PC-1500 beziehen, gelten natürlich auch für den baugleichen 
Taschencomputer PC-1500A, der mehr Speicherkapazität hat. 


Einleitung 


Voraussetzung für die Programmausführung ist die Beherrschung der wesentlichsten Funk- 
tionen des PC-1500, im besonderen das Einspeichern von Programmen und womöglich 
auch deren Aufzeichnung und Wiedereinlesen unter Verwendung eines Kassettenre- 
corders. Programmierkenntnisse müssen erst dann dazukommen, wenn es um individuelle 
Programmadaptierungen oder den Einbau eines dieser Programme in eine umfangreichere 
Problemlösung geht. Vergessen Sie dabei auch nicht, daß dieses Rechnermodell den 
gleichzeitigen Aufenthalt von mehr als einem Programm im Speicher ermöglicht. Sie 
sollten daher Ihren PC-1500 auch von vornherein mit dem 8Kbyte RAM-Speichermodul 
ausrüsten oder den neuen PC-1500 A mit größerer Speicherkapazität verwenden. Aber 
auch von der Seite der Datenspeicher wird zumindest in dem Fall der Lösung linearer 
Gleichungssysteme Wert auf ein großes Speichervermögen gelegt, um möglichst viele 
Gleichungen in einem lösen zu können. 


Die in dieser Sammlung präsentierten Lösungen weisen folgende Gemeinsamkeiten auf: 


© Die meisten Programme können sowohl mit, als auch ohne Drucker betrieben werden. 

© Die Programme werden im TEXT-Modus mit Schriftgröße 2 und der Druckfarbe 
schwarz betrieben; Ausnahmen davon sind in den Programmbeschreibungen ange- 
geben. 


Die Programmpräsentation gliedert sich in folgende Teile: 


© Programmbeschreibung, die im Bedarfsfall durch Skizzen und Flußdiagramme unter- 
stützt wird, wo dies zum besseren Verständnis der Problemstellung erforderlich scheint. 

® Programmlisting (Kopie des Originalausdrucks). 

Bedienungsanleitung mit Aufzählung sämtlicher Verarbeitungsvarianten. 

© Testbeispiel; in den Fällen, in denen es aus Gründen vielfältiger Programmanwendungs- 
möglichkeiten sinnvoll ist, werden mehrere Beispielausdrucke vorgestellt. 


In allen Fällen wird der Anwender mit Hilfe einer dialoggesteuerten Verarbeitung durch 
ein Programm geführt. Gleichgültig, ob mit oder ohne Drucker gearbeitet wird, erfolgt 
in allen Fällen im Programmvorlauf die Ausgabe einer kurzen Verarbeitungsanleitung, so 
daß die Bedienungsanleitung nur im Sonderfall herangezogen werden muß. 


Auf diese Weise scheint die optimale Nutzung aller Programme am besten gewährleistet. 
Die Sammlung gibt dem fortgeschrittenen Anwender sehr viele Hinweise für individuelle 
Anpassungen und Gestaltungen seiner eigenen Probleme. 


Das Wesentliche an dieser Sammlung ist auch deren Absicht, dem Benutzer aufzuzeigen, 
daß es im allgemeinen wenig sinnvoll ist, die Programme kritiklos und unbesehen nach- 
zuvollziehen. Sie dienen nicht allein als wertvolle Arbeitshilfe, sondern bereichern auch 
den sinnvollen Zeitvertreib und dienen als Anregung zu eigenem kreativen Tun. 


2 Einleitung 


Hinweise zur Eingabe und Verwendung der Programme 


An den Beginn der Programmpräsentation sind noch einige wichtige Bemerkungen zu 
stellen: 


Programmeingabe 


Da der Rechner PC-1500/1500 A einen BASIC-Interpreter aufweist, der im Gegensatz zu 
anderen BASIC-Versionen die Unterbringung von mehr als einer Anweisung in einer Pro- 
grammzeile bis zur Ausschöpfung der 80 Zeichen umfassenden Kapazität gestattet, wird 
auch in unseren Programmen fallweise bis an diese Grenzkapazität herangegangen. Im all- 
gemeinen besetzt jedes verwendete Zeichen eine Speicherstelle (Byte) einer Zeile; Aus- 
nahmen hiervon bilden die BASIC-Steueranweisungen GOTO, GOSUB, PRINT, LPRINT, 
etc. und die BASIC-Kommandos CLEAR, CSIZE, COLOR, etc.. Anläßlich einer Pro- 
grammzeileneingabe kann der Rechner den Sinn einer Tastenbetätigung noch nicht er- 
kennen. Erst bei der Einspeicherung einer eingetasteten Programmzeile mit Betätigung der 
Taste (ENTER) erfolgt eine entsprechende Speicherzuordnung, in der nicht verwendete 
Speicherstellen wieder frei gegeben werden. 

Bei Eingabe längerer Zeilen ist daher die Einspeicherung mit (ENTER) bei Anzeige der 
ausgeschöpften Zeilenkapazität — allenfalls auch schon früher — vorzunehmen und der 
Rest der Zeile im Wege einer fiktiven Programmänderung dazuzuspeichern. 


Parallelbetrieb 


Die Verwendung von mehr als einem Programm, d.h. das gleichzeitige Vorhandensein 
von mehr als einem Programm im Rechner — bekanntlich vom Band mit dem Systembe- 
fehl MERGE durchzuführen — ist nicht allein von dem für den Datenbereich erforder- 
lichen Speichervorrat zu betrachten, sondern bedingt die Beachtung einer weiteren wich- 
tigen Voraussetzung: 

Bei Parallelbetrieb dürfen die mit (DEF) A, (DEF) S, etc. gekennzeichneten Programm- 
starts nicht verwendet werden. In solchen Fällen ist das Listing abzusuchen und die 
Zeilennummer festzustellen, in der eine Programmzeile mit der betreffenden Marke ein- 
geleitet ist. Zeile 15® beginne beispielsweise mit „A’'; der damit gekennzeichnete Pro- 
grammzweig ist daher nicht mit (DEF) A sondern mit RUN 150 zu starten. 


1.1 Primzahlenerzeugung 3 


1 Basisprogramme 


Die in dieser Programmsammlung vorgenommene Teilung in drei Bereiche ist mehr oder 
minder willkürlich. Genau genommen sind alle Problemlösungen zur Bewältigung ver- 
schiedener praktischer Aufgabenstellungen einzusetzen. Einleitend zu den Programmbe- 
schreibungen werden Anwendungshinweise angesprochen. 


1.1 Primzahlenerzeugung 


In verschiedenen Anwendungen ist es denkbar, daß Primzahlen entweder in einer Verar- 
beitung zu berücksichtigen sind oder von dieser ausgeschlossen bleiben müssen. Mit Hilfe 
dieses Programms können Primzahlen herausgefiltert werden. 


Primzahlen sind bekanntlich Zahlen, die nur durch die Zahl 1 oder sich selbst ganzzahlig 
teilbar sind. Sie können mathematischen Handbüchern oder Tabellenwerken entnommen 
werden. In einer praktischen Anwendung ist mitunter davon auszugehen, daß nur Prim- 
zahlen herausgefiltert werden müssen, die zwischen zwei Grenzwerten einschließlich 
derselben liegen. Mit diesem Programm können die zwischen zwei Grenzwerten gelegenen 
Primzahlen bestimmt werden. 


Der größte Teiler einer Zahl Z kann nur Vz sein, davZ- YZ gleich Z ist. Eine Primzahl 
liegt dann vor, wenn dieser größte Teiler erreicht ist und zuvor keine ganzzahlige Teil- 
barkeit gegeben war. Als Teiler sind außer der Zahl 2 nur die ungeraden Zahlen anzu- 
setzen, da in jeder von 2 verschiedenen geraden Zahl ja wieder die Zahl 2 enthalten ist! 
Eine Teilbarkeit ist dann gegeben, wenn der Quotient eine ganze Zahl ist, d.h. wenn der 
Dezimalteil des Quotienten den Wert O annimmt. 


Bei größeren Zahlenbereichen sind länger dauernde Verarbeitungen zu erwarten. Die 
Grenzwerte selbst müssen zwischen einschließlich 2 und 9999999999 liegen. Werden 
keine Grenzwerte beim Programmstart eingegeben, wählt der Rechner die genannten 
maximal möglichen Werte als Grenzwerte für die laufende Verarbeitung. Bei der Eingabe 
ist auch darauf zu achten, daß der obere Grenzwert größer als der untere Grenzwert ist. 
Die Primzahlenerzeugung kann mit oder ohne Drucker vorgenommen werden. 


Speicherbelegung 

A — unterer Grenzwert 

B — oberer Grenzwert 

D — Teiler 

H — Zahl 

K -— Verarbeitungskennzeichen 
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Flußdiagramm 


Grenzwerte 
eingeben B 


Z = unterer 
Grenzwert 


Primzahl Z 
ausgeben 


Zahl Zum 
2 erhöhen 
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12: "PRIM":CLEAR : 8B:IF CcA<=1)OR <A 1498:D=D+2:1F D=4 
S$="Primzahlen -INT A<>B)OR ( LET D=3 
": T$="-Erzeugu INT LOG A>S) 158: IF IH<SDLET I=H 
ng" THEN ?P :GOTO 228 
28:K=1:1INPUT "Anz 92: INPUT "Oberer 168: IF H/D-INT (CH/ 
e:ıge 1/Druck 2 Grenzwert="}B D>THEN 148 
CENTER>"35K ı1BB: IF CB<=1)0OR (CB 17B:H=H+1 
3RB:1IF CK<1DOR (CK) -INT B<>B)OR ( 188: IF ILET H=H+l: 
2>OR (K-INT K< INT LOG B>Y)OR IF H=4LET H=3 
>B>THEN 28 (B<£ADTHEN 98 198: IF H<=BTHEN 13 
48: IF K=1PRINT S$ 112:H=A:1=B: IF K=l 2 
ı T$3:GOTO 08 PRINT "Primzah 2898: IF K=1END 
SB:LPRINT :CSIZE len zwischen": Z21B:USING :LF 4: 
2:CDOLOR 2: PRINT A353" und" COLOR B:END 
GOSUB 248: ıB:GOTO 138 228:1IF K=1IPRINT H: 
LPRINT " "; 128: USING "HREHHHH GOTO 17B 
S$:LPRINT " HHRR"SLPRINT : 238:COLOR 3:LPRINT 
"3 T$:GOSUB 24 LPRINT "Prıimza H:G0OTO 178 
% hlen":LPRINT " 24B:LPRINT "XXXXXX 
69:A=2:B=1E1B-1 zw. "en: KKIKKKKIKKKK": 
>B: INPUT "Unterer LPRINT "und RETURN 
Grenzwert='";N ":B:GOSUB 258 258:LPRINT "------ 
1328:D=22 0000 MT TTeunmenono "; 
RETURN 


Programmlisting 1.1 Primzahlenerzeugung 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "PRIM“ (ENTER) starten. 
2. Beim Hinweis “Anzeige 1/Druck 2 (ENTER) _'' Betriebsart wählen: 


2.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 3 fortsetzen. 
2.2. Druck: 2 (ENTER) drücken und bei Punkt 7 fortsetzen. 


Unzulässige Eingaben führen zum Verbleiben der Anzeige. 
3.  Kontrollanzeige ‘Primzahlen-Erzeugung‘ mit (ENTER) löschen. 


“ 


4. Bei Anzeige ‘Unterer Grenzwert = _‘’ unteren Grenzwert eintasten und (ENTER) 
drücken. Es werden nur ganze, zwischen 2 und 9999999999 gelegene Zahlen ange- 
nommen. Unzulässige Eingaben führen zur genannten Anzeige zurück. Die Betätigung 
von (ENTER) ohne vorangehende Zahleneingabe bewirkt die Anwahl der Zahl 2 als 
unteren Grenzwert. 


5. Bei Anzeige ‘Oberer Grenzwert =_’ oberen Grenzwert eintasten und (ENTER) 
drücken. Zu den zuvor genannten Beschränkungen muß auch noch die Bedingung, 
daß der obere Grenzwert größer als der untere sein muß, erfüllt sein. Die Betätigung 
von (ENTER) ohne vorangehende Zahleneingabe bedingt die Anwahl der Zahl 
9999999999 als oberen Grenzwert. 


6. Die Anzeigen “Primzahlen zwischen‘’ sowie “unterer Grenzwert bis oberer Grenz- 
wert‘ jeweils mit (ENTER) löschen. Die einzelnen Primzahlen sind nun mit der Be- 
tätigung der (ENTER)-Taste abzurufen. Die Zahl gilt als angezeigt, wenn der Verar- 
beitungshinweis “BUSY“ in der Anzeige oben links verlöscht. Nach Anzeige der 
letzten Primzahl verlöscht die Anzeige bis auf das Bereitschaftssymbol. 
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7. Beim Ausdruck wird ein einleitender Text ausgegeben, die Grenzwerte sind dann 
analog zu den Punkten 4 und 5 einzuspeichern, worauf die Eingabedokumentation 
und Ergebnisausgabe, letztere mit roten Zahlen, folgt. Die Verarbeitung ist mit 
einem mehrfachen Zeilenvorschub zum bequemen Abtrennen des Druckstreifens und 
dem Verlöschen der Anzeige sowie der Anzeige des Bereitschaftssymbols beendet. 

8. Weitere Verarbeitungen sind ab Punkt 1 aufzunehmen. 


Achtung: Wurden in den Punkten 4 oder 5 unzulässige Eingaben vorgenommen, ist die 
Betätigung von (ENTER) ohne vorangehende Zahleneingabe bei der Wiederholung einer 
unzulässigen Eingabe gleichzusetzen. 

Die drei Ausdruckbeispiele sind klar und deutlich und bedürfen keines weiteren zusätz- 
lichen Kommentars. 


KKKKKKKKKKKKKKKKRK KKKKKKKKKKKKKKKKKK KKKKKKKKKKKKKKKKKK 
Primzahlen Primzahlen Primzahlen 
-Erzeugung -Erzeugung -Erzeugung 

KKKIKKKKKKKKKKKKKKK KKKKKKKKKKKKKKKKKK KIKKKKKKKKKKKKKKKKX 

Primzahlen Primzahlen Primzahlen 

zw. 2 zw. 175 zw. 1885 

und 29 und 232 und 1152 

2 179 188? 
3 181 1291 
5 191 1893 
? 193 189? 
11 197 1123 
13 199 1189 
17 z11 111? 
19 223 1123 
23 227 1129 
29 229 1151 


Beispiele zu 1.1 Primzahlenerzeugung 


1.2 Primfaktorenzerlegung 


Die Zerlegung einer Zahl in Primfaktoren kann für verschiedene Problemlösungen erfor- 
derlich sein; so auch für die Bestimmung des kleinsten gemeinsamen Vielfachen oder des 
größten gemeinsamen Teilers von zwei oder mehreren Zahlen; allerdings ist der Ermitt- 
lung dieser beiden Werte ein eigenes Programm gewidmet. 

Das Zerlegen einer Zahl in Primfaktoren beruht auf dem Abspalten einer Primzahl aus 
dem jeweiligen Zahlenrest (ganzzahliger Quotient aus dem letzten ganzzahligen Quotient 
geteilt durch die aktuelle Primzahl). Damit eine Primzahl im jeweiligen Restquotienten 
als enthalten gilt, muß der neue Quotientenrest eine ganze Zahl sein. 

Auch hier muß der Ausgangswert einer Verarbeitung eine ganze zwischen einschließlich 2 
und 9999999999 gelegene Zahl sein. Eine Primzahl ist eine Zahl, die nur durch 1 und 
sich selbst ganzzahlig geteilt werden kann. Der größtmögliche Teiler einer Zahl ist dessen 
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Wurzel. Eine Zahl ist dann als Primzahl anzusprechen, wenn der Teiler den Wurzelwert 
erreicht hat und bis zu diesem Zeitpunkt eine ganzzahlige Teilbarkeit des Quotientenrests 
geteilt durch den Teiler nicht gegeben ist. Der Teiler ist dann die Primzahl. Die Verarbei- 
tung ist wahlweise mit oder ohne Drucker möglich. 


Flußdiagramm Speicherbelegung 
A — Ausgangszahl 
B — Primfaktor 
C — letzter Quotientenrest aus vorletztem 
Zanı z Quotientenrest geteilt durch Primfaktor 
a 
Be K — Verarbeitungskennzeichnung 
nein 
Primzahl 
Q setzen 
Zahl nach 
Rest 
Teiler cc» 






Primzahl 
um 2 
erhöhen 
















Rest neu 
nach 
Rest alt 





Teiler = 
Primzahl 
ausgeben 


Teiler um 
2 erhöhen 







Dezimalteil 
aus 
Rest/Teiler 


Dezimalteil 
aus 
Rest/Teiler 











1B: "PFAK":CLEAR : 
S$="Primfaktor 
en":T$="-Zerle 


gung" 


28:K=1: INPUT "Anz 
eıge 1/Druck 2 


CENTER)" 3K 


39:1IF CK<1DDR (K> 
2)0R (CK-INT K< 


>B)THEN 28 


4B: IF K=1IPRINT S$ 


; T$:GOTO 08 


SB:LPRINT :CSIZE 


2:COLOR E&: 
GOSUB 228: 
LPRINT " 

$:LPRINT " 


"3 T$:GOSUB 220 


69: INPUT "Zahl 


"sA:IF A=BTHEN 


BO 


B:B=B:C=R: IF CA 


2>0OR CINT LOG 
A>SYOR CA-INT 
A<>BITHEN 68 


8B: IF K=1IPRINT "Z 


= "3A:PRINT S 
$:G0TO 1282 


98: USING "HHRHHHRR 


#44" LPRINT 
LPRINT "Z = 

";A:GOSUB 238 
:LPRINT Se; "3" 
: COLOR 3 


188:D=2:B=B+Z: IF B 


=4LET B=3 


119: IF D<SCTHEN 15 


B 


128: 1F C/D-INT (C/ 


D>THEN 159 


Programmlisting 1.2 Primzahlenzerlegung 


Bedienungsanleitung 


1 Basisprogramme 


:D=D+2: IF D=4 


LET D=3 


:GOTO 118 
:IF C/B-INT (C/ 


B>THEN 188 


:C=C/B 
IF K=1PRINT "P 


rımzah! = "}3B: 
GOTO 198 


:LPRINT B 

«IF C>ITHEN 158 
:IF K=1THEN 6B 
USING :COLOR 2 


:LF 4:G0T0 68 


:LPRINT "XKIKKX 
KKKIKKKKKKKKN: 


RETURN 


:LPRINT "------ 


mm au man m me u Grub dm dem gume man ame 


RETURN 


1. Programm mit RUN (ENTER) oder RUN "PFAK“ (ENTER) starten. 
2. Beim Hinweis "Anzeige 1/Druck 2 (ENTER)_‘ Betriebsart wählen: 


2.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 3 fortsetzen. 
2.2. Druck: 2 (ENTER) drücken und bei Punkt 7 fortsetzen. 


Unzulässige Eingaben führen zum Verbleiben der beschriebenen Anzeige und somit 


zur Anwahlwiederholung. 
3.  Kontrollanzeige ‘'Primfaktoren-Zerlegung’’ mit (ENTER) löschen. 
4. Bei Anzeige "Zahl =_' über die weitere Fortsetzung entscheiden: 


4.1. Neue Zahl eingeben: Ganze zwischen einschließlich 2 und 9999999999 ge- 
legene Zahl eintasten und (ENTER) drücken. Unzulässige Eingaben führen zur 
genannten Änzeige zurück. 

4.2. Letzte Zahl wiederholen: (ENTER) ohne vorangehende Zahleneingabe drük- 
ken. Von Punkt 1 kommend führt dieser Vorgang zum Fehlerhinweis ERROR 
39 IN 70°. Diese Anzeige ist mit (CL) zu löschen und die Verarbeitung bei 


Punkt 1 neu zu starten. 


4.3. Verarbeitung abbrechen: In diesem Fall die Tasten (BREAK) bzw. (ON) und 
(CL) betätigen; die Anzeige verlöscht bis auf das Bereitschaftssymbol. 

5. Kontrollanzeige "Z = NNN’ (NNN = eingegebene Zahl) mit (ENTER) löschen. 

6. Anzeige "Primfaktoren‘’ mit (ENTER) löschen und ersten Primfaktor abrufen. Alle 
weiteren Faktoren ebenfalls mit (ENTER) abrufen. Ein Abruf gilt als getätigt, wenn 
der Betriebshinweis "BUSY’ in der Anzeige links oben verlöscht. Dies muß unbe- 
dingt bei Betrieb über die Anzeige beachtet werden, weil ein und derselbe Faktor 
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mehrmals auftreten kann. Nach Anzeige des letzten Primfaktors wird automatisch 
zurück zu Punkt 4 gegangen. 

7. Nach Ausdruck eines die Verarbeitung einleitenden Texthinweises wird eine Aus- 
gangszahl analog zu Punkt 4 eingetastet und die Eingabe mit (ENTER) abgeschlossen. 
Nach einer Eingabedokumentation werden die Primfaktoren rot ausgedruckt und 
darauf wird automatisch bei Punkt 4 fortgesetzt. 


Die Verarbeitung des dritten Testbeispiels nimmt geraume Zeit in Anspruch. 


KIKKKKKKKKKKKKKKKK 2 = 756 de = 9688521139 
Primfaktoren __ muemeeememmeonenen Ten 
-Lerlegung Primfaktoren: Primfaktoren: 

KIKKKKKKKKKKKKKKKK 2 97 

2 439 

7 = 32 3 463 

44-0000. 3 49] 
Primfaktoren: 3 
? 


Beispiele zu 1.2 Primzahlenzerlegung 


1.3 Kleinstes gemeinsames Vielfaches — größter gemeinsamer Teiler 


Auf derartige Aufgaben stoßen wir sehr oft im praktischen Leben, ohne daß wir uns 
dieses Umstands bewußt werden. Wenn wir beispielsweise mit Rohmaterial sorgsam um- 
gehen müssen, kommt es darauf an, dieses mit geringstmöglichem Verlust zu verarbeiten. 
Die Berechnung des kleinsten gemeinsamen Vielfachen (kgV) bzw. des größten gemein- 
samen Teilers (ggT) bieten uns für solche Fälle geeignete rechentechnischen Grundlagen 
zur Lösung derartiger Probleme. 

Das Verfahren unter Zuhilfenahme der Zerlegung einer Zahl in Primfaktoren scheint uns 
für die Lösung der vorliegenden Problemstellung zwar möglich; es ist aber zu umständlich, 
und so bedienen wir uns der weniger aufwendigen Methode des £uklidschen Algorithmus. 
Wir werden die einzuschlagende Vorgangsweise für die Berechnung des ggT Schritt für 
Schritt an den beiden Ausgangszahlen 12 und 18 erläutern: 


Berechnung des ggT 

1. Schritt: 18*12 = 1,5 Division beider Zahlen 

2. Schritt: INT (1,5) = 1 ganzzahligen Quotienten bilden 

3. Schritt: 1:12 = 12 Quotient mal Divisor 

4. Schritt: 18-12 = 6 Restbildung; da ungleich ®, neue vier Schritte: 
5. Schritt: 132-6 =2 Divisor durch Rest teilen 

6. Schritt: INT (2) = 2 ganzzahligen Quotienten bilden 

7. Schritt: 2:6 = 12 Quotient mal neuer Divisor 

8. Schritt: 12-12 = © Rest Ö; ggT mit letztem Rest # ® gefunden. 
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Nachdem der zweite Rest zu Null geworden ist, hat sich der ggT mit dem letzten Rest, 
hier 6, gefunden. Zum Beweis, daß auch ein Vertauschen der beiden Ausgangswerte am 
Ergebnis nichts ändern kann, sei der erste Teil der um einen Zyklus längeren zweiten Be- 
rechnung kommentarlos angeführt: 


1. Schritt: 12+18 = 96 
2. Schritt: INT (8,6) = © 
3. Schritt: ®- 18 = 
4. Schritt: 12-9 12. 


Die Schritte 5-12 gleichen den Schritten 1-8 des zuvor beschriebenen Berechnungs- 
beispiels. Hier hat der erste Zyklus nur die Umkehrung der beiden Ausgangswerte be- 
wirkt. Die beiden Ausgangswerte können also in beliebiger Reihenfolge eingegeben wer- 
den. 


Berechnung der kgV 


An sich könnte in ähnlicher Weise wie zuvor beschrieben bei der Berechnung des kgV 
vorgegangen werden. Auch wenn die Rechenmethode recht kurz ist, bedienen wir uns 
eines wesentlich einfacheren Lösungsweges. Wir wissen, daß folgende Beziehung gilt: 


A-B = kgV ggT. 


Nachdem sich nun der eine wie auch der zweite Wert aus der obigen Formel, in der A und 
B die beiden Ausgangswerte darstellen, berechnen läßt, ergibt sich für das kgV folgende 
Berechnungsformel: 


Das kgV aus 12 und 18 errechnet sich somit zu 36. 


Prüfen Sie selbst durch Zerlegung der Ausgangswerte in Primfaktoren von Hand dieses 
Ergebnis oder zerlegen Sie die beiden Werte mit dem Programm 1.1. Durch die vorliegen- 
de Problembeschreibung erübrigt sich hier auch die Präsentation eines Flußdiagramms. 


Speicherbelegung 
A — Ausgangszahl 1 


Verarbeitungskennzeichen (Anzeige oder Druck) 
— Kennzeichnung (Einzel- oder Sammelberechnung) 


B — Ausgangszahl 2 

C — Berechnungskennzeichen (kgV oder ggT) 
D — Dividend 

E — Divisor 

K 

Z 


Auch dieses Programm kann mit oder ohne Drucker gefahren werden. 


1.3 KgV — ggT 


12: 


20: 


3B: 


aD: 


Sp: 


BB: 


78: 


"KUGT":CLEAR : 
S$="kgU -- 99T 


K=1: INPUT "Anz 
eıge 1/Druck 2 
CENTER)" ;K 

IF CK<1DOR (CK) 
2>OR CK-INT KS 
>B)>THEN 28 
T$="(CDEF>A-Zah 
I 1":U$="CDER) 
S-Zahl 2": V$=" 
CDEF>Z-Zahl |]; 
2" 

W$=" CDEFIK-KgU 
"EX$="CDEF)G-9 
gT":Y$="CDERF)B 
-kKgalU+rggT" 

IF K=1PRINT S$ 
:PRINFT T$: 
PRINT U$: PRINT 
US$: PRINT WS: 
PRINT X$:PRINT 
Y$:GOTO 88 
LPRINT :CSIZE 
2:CDLOR 8: 
GOSUB 268®: 
LPRINT " "; 
Ss$:60SUB 268: 
LPRINT TS: 
LPRINT US: 


8p: 
9p: 


182: 


11B: 
128: 


132: 


148: 


150: 


16B: 


17B: 


LPRINT US: 
LPRINT WS: 
LPRINT X$: 
LPRINT Y$:LF 3 
"2":A=B:B=B 
"A": INPUT "Zah 
I 1="59 

IF cA<=BIOR (A 
>=1EIBIOR (A- 
INT A<>BITHEN 
98 

IF B<>BTHEN 15 
% 

"S": INPUT "Zah 
ı 2 = ";B 

IF CB<=B)OR (CB 
>=1EIB)IOR (B- 
INT B<>B)THEN 
128 

IF A=BTHEN 98 
IF K=1IPRINT "Z 
C1lD="3N5"7Z2C2) 
="5B:END 

USING "HHRHHHH 
HHHH":LPRINT : 
LPRINT "Zahl 1 
="sA:LPRINT "Z 
ahl 2="5B: 
USING :END 
"G":C=1:G0T0 1 
98 


182: 
192: 
2BP: 


21B: 
222: 


238: 


242: 


258: \ 


260: 


27B: 


28P: 


298: 


11 
"K":C=B 
E=B:D=A 
F=D-EX(CINT (D/ 


EI>I:D=SE:E=F:TF 
ETHEN 288 

IF CTHEN 248 
D=AXB/D: IF K=] 
PRINT "kgV = " 
;D:GOTO 288 
USING "HHRHHRHHH 
BEHH":LPRINT " 
kgU ="5D: 
USING :GOTO 28 
1%) 

IF K=1PRINT "g 
9T = "5D:GOTO 


USING THREHRHH 
HRRR":LPRINT " 
99T =";D 


USING :GOTO 28 
% 

LPRINT "XXXXXX 
KKKKKKKKIKKX": 
RETURN 
"B":Z=1:GOSUB 
"K":GOSUB "G": 
2=B: END 

IF Z=1ITHEN 
RETURN 

END 


Programmlisting 1.3 Kleinstes gemeinsames Vielfache — größter gemeinsamer Teiler 


Bedienungsanleitung 


Programm mit RUN (ENTER) oder RUN 'KVGT’ (ENTER) starten. 
Beim Hinweis "Anzeige 1/Druck 2 (ENTER)_” Betriebsart wählen: 


2.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 3 fortsetzen. 
2.2. Druck: 2 (ENTER) drücken und bei Punkt 9 fortsetzen. 


1. 
2. 


Unzulässige Eingaben führen zum Verbleiben der Anzeige. 
. Kontrollanzeige ”"kgV —— ggT” mit (ENTER) löschen. 
. Anzeige einer kurzen Verarbeitungsanleitung in Übereinstimmung mit dem Aus- 


druck des Testbeispiels, wobei auf jeden weiteren Verarbeitungshinweis mit (ENTER) 
weitergeschaltet werden muß. 


. Bei Anzeige "Zahl 1 = _‘' erste Zahl eintasten und (ENTER) drücken. Es werden nur 


ganze Zahlen zwischen einschließlich 2 und 9999999999 angenommen; andere Ein- 
gaben führen zum Verbleib der beschriebenen Anzeige, ebenfalls die Betätigung von 
(ENTER) ohne vorangehende Eingabe. 


. Bei Anzeige "Zahl 2= _ 


zweite Ausgangszahl eintasten und (ENTER) drücken; es 
gelten die 0.9. Bemerkungen. Kontrollanzeige beider Zahlen mit (ENTER) löschen. 


Die Anzeige verlöscht und das Bereitschaftssymbol wird angezeigt. 


12 


11. 


12. 


7.1. 


7.2. 


7.3. 


8.1. 


8.2. 


8.3. 


1 Basisprogramme 


. Abrufmöglichkeiten: 


Ausgabe kgV: Tasten (DEF) K drücken; das kgV wird angezeigt, und die An- 
zeige mit (ENTER) gelöscht. 

Ausgabe ggT: Tasten (DEF) G drücken; das ggT wird angezeigt, und die An- 
zeige mit (ENTER) gelöscht. 

Ausgabe kgV und ggT: Tasten (DEF) B drücken; das kgV wird angezeigt. An- 
zeige des qgT mit (ENTER) abrufen und mit (ENTER) löschen. 


. Weitere Eingabevarianten: 


Zahl 1 eingeben: (DEF) A drücken, bei Anzeige analog Punkt 5 Wert für Zahl 1 
eintasten und (ENTER) drücken. Anzeige beider Ausgangszahlen mit (ENTER) 
löschen und Abruf in Punkt 7 anwählen. 
Zahl 2 eingeben: (DEF) S drücken, bei Anzeige analog Punkt 6 Wert für Zahl 2 
eintasten und (ENTER) drücken. Anzeige beider Ausgangszahlen mit (ENTER) 
löschen und Abruf in Punkt 7 anwählen. 
Beide Ausgangswerte neu eingeben: (DEF) Z drücken und Eingaben analog 
Punkt 5 und 6 vornehmen, Anzeige beider Ausgangszahlen mit (ENTER) 
löschen und Abruf in Punkt 7 anwählen. 


. Ausdruck einer Titelzeile und einer kurzen Verarbeitungsanleitung. 
10. 


Eingaben in Übereinstimmung mit den Punkten 5 und 6 vornehmen und mit (ENTER) 
abschließen. Die Eingabe wird grundsätzlich mit dem Ausdruck beider Ausgangs- 
werte abgeschlossen. 


Ergebnisabruf in Übereinstimmung mit Punkt 7 vornehmen; die Ausgangszahlen wer- 
den je nach Anwahl bzw. Eingabe ausgedruckt. 


Weitere Verarbeitungen können ab Punkt 1, 7 oder 8 aufgenommen werden. 


Die Darstellung der Ausdrucke der Testbeispiele ist klar und bedarf keines Kommentars. 


KKKKKKKKKKKKKKTKTRK Zahl 1= 18 

kgU -- ggT Zahl 2= 12 

KKKKKKKKKKKKKKKTTT kgU = 36 

CDEF>A-Zahl 1 ggT = 6 
CDEF>S-Zahl 2 

DEF>Z-Zanhl 1,2 Zahl 1= 8316 

(DEF>K-kglU Zahl 2= 11466 

CDEF)G-99T kgaU = 796756 

CDEFIB-kyal+ggT ggT = 126 

Zahl 1= 58985 

Zahl 2= 48425 

kgU = 2861675 

99T = 1155 


Beispiele zu 1.3 
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1.4 Kreis durch drei Punkte 


Bei der Bearbeitung konstruktiver geometrischer Aufgaben stößt man häufig auf das 
Problem einen Kreis durch drei Punkte zu legen. Dies trifft bei der abgebildeten geo- 
metrischen Form zu: 


h 





Der Radius dieses Kreises muß bekannt sein, damit der Querschnitt der Rinne gezeichnet 
und für die Herstellung eines Modells das entsprechende Modellteil gefertigt werden kann. 
Die gegebenen Punkte sind P,, P, und P; mit den Koordinaten 


Punkt x y 
S 

1 > Ö 
S 

2 > Ö 

3 Ö -t 


Der Koordinatenursprung wird in die Mitte der oberen, horizontal verlaufenden Kante ge- 
legt. 

Zur Bestimmung eines beliebigen Kreises muß die rechentechnische Grundlage der Pro- 
blemlösung anhand des nachstehend dargestellten Kreises abgeleitet werden. 
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P,lx3.y3) 


PP) (X2:Y2) 


Plx,.y,) 





Formelmechanismus 


Kreisgleichung: (x -p)? + (y- a)? = r2 
_Yı7 Y2 _Yı"7 Y2 
Geradengleichung durch 2 Punkte: yOvıan my, (x -x,); m= X = x, 
Gerade durch Punkt und Richtung: y=-yı=m'(x-x,) 
1 
Normale Gerade: Yyyız m 1X =x,) 
Xı tX2 Yı t y2 
Halbpunkte H} >: X,2= 07 3 Yı2 “= >. 
X2 + X3 VY2 + y3 
H2 3: 23” 2 , Y23” 2 
_— X4 X) 
Zu PP, durch H, „ normale Gerade: Y=Yı2”= mı2'IX"X12); Mı2 = my 
_—_ X — X3 
Zu P3P3 durch H, 3 normale Gerade: Y=Ya3=ma3'(x"%23); ma 3 = ya=ya 


mM1,2'Xı,2" M23'X23 "VYı.a*+V2,3 


Kreismittelpunkt: pP = Mı2 "Ma 3 


q=mı2'X=Mı 2 'Xı,2 +Yı,2 oder 
q=mM2a3'X7"M23'X23 +Ya3 

r? = (x -p)? + (yı -q)? oder 

r? = (x2 - p)? + (ya -q)? oder 

r? = (x3 -p)? + (ya -q)? 


Kreisradius: 
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Zur Vereinfachung der Abwicklung der Berechnungen wurden die obigen Gleichungen an- 
geschrieben, einzelne Zwischenergebnisse sehen so aus: 


Zähler von p: 

(x12 + 12) (ya va) + (X2? + y2°) (ya = va) + (Xa° + ya?) ly2- Yo); 
Nenner von p: 

2:(xı "(Ya va) tx2'(yı Ya) t%3 (ya yı)); 
Zähler von q: 

2-(x1-X2lp-(xı° + vi) +(x2” + v2’); 
Nenner von q: 

2‘ (ya -yı) oder wenn „» -yı= 6; 
Zähler von q: 

2-(X2-Xa)'P- (X +y2) + (Xa + ya2); 
Nenner von q: 

2 (Y3 Y). 


Wir wollen mit diesem Programm allein die Bestimmung des Kreismittelpunktes und des 
Radius lösen; Fragen einer Massenermittlung des zu Beginn dargestellten Rinnenquer- 
schnitts könnten parallel dazu als eigener Programmteil behandelt werden. 

Im Programm sind die Eingaben der Koordinaten der Punkte P,, Pz und P3 bewußt vom 
Ergebnisabruf getrennt worden. Auf diese Weise lassen sich leichter Variantenrechnungen 
durchführen, ohne daß die unverändert in eine neue Rechnung zu übernehmenden Aus- 
gangswerte jedes mal neu eingegeben werden müssen. Die Verarbeitung kann mit oder 
ohne Drucker erfolgen. 


Speicherorganisation 


A-—-xı G - x +yı° M — 
B — yı H — xX2° + y2 N — 
C— x — X3 + y3° OO — 
D- y2 J = Y3”y2 P-—-p 
E — x K — yı=Yy3 0-q 
F— y3 L — ya Yyı R-r 
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1B: 


32: 


aD: 


30: 


60: 


7B: 


Programmlisting 1.4 Kreis durch 3 Punkte 


"KRPT":CLEAR : 
S$="Kreis dJurc 
h ";T$="3 Pkte 
suU$=" - Eıng. 
"sQa$="xC]), y(] 
y 


:B$="xC2), yC22" 


-C$=E"XC3H), yl3) 
DH=FAFSEK="S 
"sF$='D":6$="X 
- Berechnung" 
x=1: INPUT "Anz 
eıge 1/Druck 2 
CENTER)"3SX 

IF cXx<1DOR (X> 
23OR CX-INT Xx< 
>B)THEN 30 

IF %=1PRINT S$ 
ı T$:PRINT D$; U 
$;N$: PRINT E$;5 
U$;B$: PRINT F$ 
U$;5C$:PRINT 6 
$:END 

CSIZE 2:COLOR 
B:LPRINT : 
GOSUB 148: 
LPRINT S$;T$: 
GOSUBR 1482: 
LPRINT :LPRINT 
"DEF Verarbe ıt 
ung":GOSUB 158 
LPRINT ND$;U$;A 
$:LPRINT E$; U$ 
ıB$:LPRINT F$; 
U$;C$:LPRINT G 
$:LF 3:END 


Bedienungsanleitung 
Programm mit RUN (ENTER) oder RUN “KRPT’ (ENTER) starten. 

Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _’ Ausgabeart wählen: 

2.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 3 fortsetzen. 
2.2. Druck: 2 (ENTER) drücken und bei Punkt 7 fortsetzen. 


Bei Eingabe anderer Zahlen als 1 und 2 verbleibt das Programm bei der beschriebenen 
Anzeige, so lange, bis eine gültige Eingabe vorliegt. 


1. 
2. 


8P: 


IB 


122: 


112: 


28: 


138: 


40: 


158: 


\6B: 


17B: 


18B: 


198: 


"A"TZINPUT "xcl 
) = "5A, "y(ll) 
= ":B 

PRINT "1l:x="54A 
ı"zy="3B:END 
"S"; INPUT "x(C2 
) = "5C,"yc2) 
= ";D 

PRINT "2:x="5C 
ı"z7y="5D:END 
"D"2 INPUT "x(C3 
> = "5E,"yC3) 
= "SF 

PRINT "3:x=";5E 
ı"zy=";F3END 
LPRINT "XKKXKX 
KKKIKKKKKKKX: 
RETURN 

LPRINT "------ 
RETURN 
"XUSH$="Kreısb 
erechnung": IF 
x=1PRINT H$: 
GOTO 212 
LPRINT :LPRINT 
“ #3sH4$:GOSUB 1 
5 

LPRINT '"1.Punk 
t2"sLPRINT "x( 
1>=";3A:LPRINT 
"ucl)="5B 
LPRINT :LPRINT 
"2,Punkt:"”: 
LPRINT "x(2)=" 
ıC:LPRINT "y(2 
)=";D 


2BR: 


212: 


26B: 


. Kontrollanzeige "Kreis durch 3 Pkte’ mit (ENTER) löschen. 
. Hinweise zur Verarbeitung analog dem Testbeispiel für den Ausdruck jeweils mit 


:LPRINT 
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LPRINT :LPRINT 
"3.Punkt:": 
LPRINT "x(3)=" 
‘E:LPRINT "y(3 
I=";F 
G=AXA+BXKB:H=CK 
C+DXD: ISEXE+FX 
F:J=F-D:K=B-F: 
L=D-B 


: P=SCGKJ+HKK+IKL 


I/ C2KCAKIHCKK+ 
EXLID:IF LTHEN 
248 


:0=C2XPXCC-E)-H 


+12 /C2XJI:GOTO 
25B 


: O=C2XPXCA-CI-G 


tH)7C2KLD 


R=ZICABS CA-P)r 


2+ABS (B-Q)r2) 
: M$="Mittelpun 
kt: "SR$="Radıu 
Ss; 
IF Xx=1PRINT NM$ 
:PRINT "p = "5; 
P:PRINT "a =" 
:Q:PRINT R$: 
PRINT "r = "J5R 
END 
:LPRINT 
M$:LPRINT "Pp 
="3P2LPRINT " 
a =";0: 
LPRINT R$: 
LPRINT "r =" 
ıR:LF 4:END 


(ENTER) abrufen, bis die Anzeige verlöscht und das Bereitschaftssymbol erscheint. 


. Anwahl der Eingabe für die drei Punkte: 


5.1. Punkt 1: (DEF) A drücken; bei Anzeige ‘'x(1) = _' Wert für x, eintasten und 
(ENTER) drücken. Bei Anzeige ‘'y(1) = _‘' Wert für y} eintasten und (ENTER) 


drücken. 
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10. 


Wird anläßlich der Anzeige des ersten Eingabehinweises (ENTER) ohne voran- 
gehende Zahleneingabe gedrückt, wird die letzte Eingabe von x, und yı 
wiederholt und angezeigt; die Eingabeanzeige erfolgt in allen Fällen zu Kon- 
trollzwecken, um bei einer Fehleingabe diese durch eine erneute Anwahl von 
(DEF) A sofort richtig stellen zu können. Die Anzeige beider Eingaben in einer 
Zeile wird mit (ENTER) gelöscht; daraufhin erscheint das Bereitschaftssymbol. 

5.2. Punkt 2: (DEF) S drücken; die Eingabe von x, und y; ist analog zu Punkt 5.1 
vorzunehmen. 

5.3. Punkt 3: (DEF) D drücken; die Eingabe von x3 und y, analog zu Punkt 5.1 
vornehmen. 


. Kommentare, Ergebnisse, Mittelpunktskoordinaten p und q sowie Radius r werden 


nach Anwahl mit (DEF) X jeweils mit der Betätigung der (ENTER)-Taste abgerufen, 
bis mit dem Erscheinen des Bereitschaftssymbols die Anzeige verlöscht. 


. Ausdruck eines Verarbeitungstitels und einer kurzen Verarbeitungsanleitung in Über- 


einstimmung mit dem Ausdruck der Testbeispiele. Mit dem Erscheinen des Bereit- 
schaftssymbols und dem Verlöschen der Anzeige wird die Anwahl eines Punktes P 
freigegeben. 


. Anwahl und Durchführung der Eingaben werden analog zu Punkt 5 abgewickelt; 


eine Eingabedokumentation erfolgt erst anläßlich des Ergebnisabrufs. 


. Eingabedokumentation und Ergebnisse mit (DEF) X abrufen; die Abrufe sehen wie 


in den drei Testbeispielen dargestellt aus; daraufhin verlöscht die Anzeige, und mit 
dem Erscheinen des Bereitschaftssymbols ist die Verarbeitung beendet. 


Weitere Verarbeitungen können ab den Punkten 1 sowie 5 bzw. 8 aufgenommen 
werden. 


KKKKKKKIKKKKKKKKKK Kre isberechnung Kreisberechnung 
Kreis durch 3 Pkte __+--------- 4777727700000, 
KIKKKKKKKKKKKKKKKK l.Punkt: l.Punkt: 
x(]1)= xc1)= ] 
DEF Verarbe ı tung ycl)= ycl)= 4 
9 - Eıng.x(1ld),y(C]) 2.Punkt: 2.Punkt: 
S - Eına.x(2), y(2) x(2)= 68 x(2)= 
DB - Eınga.x(3), yC3) uc2)= B y(2)= 
x = Berechnung 
3.Punkt 3.Punkt 
x(3)= 3R x(3)= 12 
y(3)= y(3)= 2 
Mittelpunkt: Mittelpunkt: 
P = 39 p =6 
q =-45,5 q = 4 
Radıus: Radıus: 
rn = 54.5 n = 5 


Beispiele zu 1.4 Kreis durch 3 Punkte 
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Kreısberechnung 


l.Punkt 

x(c1)=- 

ycl)=s- 

2.Punkt 

x(Cc2)=-1 

yc2)= 

3.Punkt 

x(3)= ? 

yc3)= 3 
Mittelpunkt: 

p = 2.523889524 
q =-3,0952380896E 
-B1 

Radıus: 

r = 5,56679781? 


1.5 Schnitt zweier Geraden, Zentriwinkel 


1 Basisprogramme 


Dieses Programm stellt eines der vielen kleinen Problemlösungen zur Bewältigung ver- 
schiedener praktischer Konstruktionsaufgaben dar. Oftmals muß der Schnittpunkt von 
zwei Kanten und der von diesen eingeschlossene Winkel berechnet werden. Außerdem 
werden die von zwei Kanten festgelegten geraden Linien in ein Koordinatensystem trans- 
feriert und deren Schnittpunkte mit den Achsen des zweidimensionalen Koordinaten- 
systems (Achsenabschnitte) ermittelt. Dieses kartesische Koordinatensystem operiert mit 


den Achsen x (Abszisse) und y (Ordinate). 


Die beiden Geraden g; und g, liegen beliebig in diesem Koordinatensystem (siehe die 
Zeichnung) und können durch folgenden Formelmechanismus berechnet werden: 






x2=ß,y2=bz 






S(xs,Ys) 


xı=ß,yı=b, N © 
FARBEN 





1.5 Schnitt zweier Geraden 





Gleichung durch 2 Punkte: y=yı 


Gleichung durch Punkt und Richtung: y=-yı=m'(x-x,) 
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u _Y2 Yı 
m = tana =. x, 
x Y 
Achsengleichung der Geraden: , + b = 1 
Zentriwinkel: B= a -a, bzw. abs(a, -a,) 
Für «> 90 Grad gilt a= (180 +0) 


Die beiden Geraden können also entweder durch die Koordinaten von zwei Punkten als 
auch durch einen Punkt und die Steigung m der Geraden bestimmt sein. Der Sonderfall 
der Parallelität (&} = &,) und die Sonderfälle der parallelen Lage einer Gerade zur x- bzw. 


y-Achse müssen berücksichtigt werden. 
Dieses Programm kann mit und ohne Drucker betrieben werden. 


Wegen der Unmöglichkeit der Darstellung einer Zahl plus oder minus Unendlich wurden 


an deren Stelle die Zahlen 17° bzw. — 19° gesetzt. 


Speicherorganisation 


A — Gerade 1: x; N — Gerade 2: m 
B — yı OO — a 
CC — X2 P-— b 
D - Ya Q — x; aktuell 
E — ( R — y; aktuell 
F- m S — x, aktuell 
G — a T — y> aktuell 
H — b U —- «a aktuell 
I — Gerade 2: x, V — m aktuell 
J — yı W- a aktuell 
K — X2 X — b aktuell 
L — Y2 Y — Koordinate x, 
M — a zZ 
18: "GEWI":CLEAR : 38: J$="Steigungs" 
PRINT "Gerade, :K$="Zentri":L 
Winkel":Aa$="G $="alpha=":M$= 
erade":B$="A - "beta =":N$="A 
"sCc$="S - "SD bschnitt":0$=" 
g='"X —- -Achse" 
28:E$="Schnittpun ag: R$="winke l":S$ 
kr"sF$="x(C1l) = =" y=-bx/7/a+b": 
":6$="yl]) =": KZ=1: INPUT "An 
H$="xC2) =": 1$ ze ıge 1/Druck 


z"y(2) =" 2CENTER)" ;KZ 


5ß: 


6B: 


— Geradenkennziffer, Koordinate y,,ß 


P$=" parallel" 
«IF CKZ<1DOR 
KZ>22OR (CKZ- 
INT KZ<>BDTHEN 
40 

IF KZ=1PRINT B 
$ıa$;" 1": 
PRINT C$;A$;' 
22 PRINT D$;,E$ 
;" 1+2":END 
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?B: 


88 


98 


ı1RB 


11B: 


12: 


132: 


140: 


158: 


160: 


172: 
18B: 


LSIZE 2:COLOR 
B:LPRINT : 


GOSUB 982: 
LPRINT " "3A$ 
ı",; Winkel": 
GOSUB 9B: 
LPRINT :LPRINT 


"DEF Verarbe ıt 
ung":GOSUB 198 
LPRINT B$;A$;5" 

1":LPRINT C$; 
a$;" 2"SLPRINT 
D$S;E$:LF 3:END 
LPRINT "XXXKXXX 
KKIKKKKKIKKK: 


RETURN 

LPRINT "------ 
RETURN 

"na": Z2=1:U=A:R= 
B: S=C; T=D: U=E: 
GOSUB 13B:A=0: 
B=R:C=S:D=T:E= 
U: F=VU:G=WIH=SX: 
END 

"Ss": 2=2:0=1:R= 
J: S=K: T=L:U=M: 
GOSUB 138: 1=0: 
J=R:K=S:L=T:M= 
U:N=U:O=W:P=X: 
END 

PRINT A$35Z2: 
INPUT "x(1) = 
5; "ud =" 
R 

PRINT 25": "IF$ 
;:Q:PRINT 2Z3":" 
ıG$;R 

INPUT "x(c2) = 


"35:60T0 228 
S=2: T=2: INPUT 


"Winkel alpha 
= ";U:GOTO 188 
GOTO 158 


IF CU<CB)OR (U) 
ISB)THEN 168 


198: 


240: 


2708: 


288: 


292: 


32B: 


IF CU=B)OR (U= 
ISB)LET U=B:U= 
B:W=1E99: X=R: 
GOTO 21B 


-U=TAN U:W=Q-R/ 


UV: X=R-QOXKU 
PRINT L$;U: 
GOTO 272 


: INPUT "y(2) = 


9 
:IF <S=Q)AND (CR 


=T>PRINT "Eıng 
abe fehler": 
RETURN 

PRINT 25 ":"3;H$ 


;S:PRINT 25°: 
18; T:IF S=Q 
LET U=98:U=1E9 
9: W=0: X=V: GOTO 
278 


:IF T=RLET U=B: 


V=B:W=1E99: X=R 
:GOTO 2>D 


:U=CT-R)7CS-Q): 


U=SATN U: W=O-R/ 
VEX=R-OXU: IF U 
<BLET U=18B-+U 
IF KZ=1IPRINT J 
$;R$: PRINT L$; 
U2PRINT N$}" x 
":O$:PRINT "a 
= F3W:EPRINT N$ 
ı" y"530$: PRINT 
Be) = EX: 
RETURN 

LPRINT :LPRINT 
A$; 253 S$: GOSUB 
IRB:LPRINT F$; 
O:LPRINT G6$3;R: 
IF cS=BIAND <T 
=B)THEN 3889 
LPRINT :LPRINT 
H$;S:LPRINT 1$ 
ıT 

LPRINT :LPRINT 
JS;R$:LPRINT L 
$;U 


Programmlisting 1.5 Schnitt zweier Geraden, Zentriwinkel 


Bedienungsanleitung 


1. 
2. 


312: 


328: 


332: 


34B: 


35ß: 


37B: 


382: 


392: 


app: 


1 Basisprogramme 


LPRINT :LPRINT 
N$5;" x"508 
LPRINT "a = 
"SWELPRINT : 
LPRINT N$;" y" 
0$:LPRINT "b 
zZUSX:LF 3: 
RETURN 
"x", T$="Schnit 
t "zU$=" ]+2": 
V$=E"xcC5) Z"IW$ 
="y(s) =":IFK 
Z=2THEN 358 
PRINT T$;A$;U$ 
:IF M=EPRINT A 
$:;P$: END 
GCOSUB 378: 
PRINT E$: PRINT 
VU$E;Y: PRINT W$; 
2:GOSUB 4BB: 
PRINT K$3R$: 
PRINT M$;5Z:END 
LPRINT :LPRINT 
T$39$;5 U$: GOSUB 
128: IF M=E 
LPRINT A$;P$: 
END 


:GOSUB 37P: 


LPRINT E$: 
LPRINT VU$;Y: 
LPRINT W$352: 
GOSUB 4BB: 
LPRINT :LPRINT 
K$;R$:LPRINT M 
8;2:LF 3:°END 
IF F=1E9ISLET Y 
=A: Z=NKCY-IDD+J 
- RETURN 

IF N=1EIILET Y 
=]: Z=FXCY-A)+B 
- RETURN 
Y=(FXA-NKI+J-B 
I’CF-NIEZSFRCT 
-A)+B: RETURN 
Z=ABS (M-ED: 
RE.TURN 


Programm mit RUN (ENTER) oder RUN "'GEWI' (ENTER) starten. 
Kontrollanzeige "Gerade, Winkel‘ mit (ENTER) löschen. 
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3. Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _‘ über die weitere Fortsetzung entschei- 
den: | 


3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 4 fortsetzen. 
3.2. Druck: 2 (ENTER) drücken und bei Punkt 6 fortsetzen. 


4. Anzeige der drei Verarbeitungshinweise in Übereinstimmung mit dem Ausdruck des 
Testbeispiels (Programmvorlauf) jeweils mit (ENTER) abrufen. Darauf verlöscht mit 
dem Erscheinen des Bereitschaftssymbols die Anzeige. 


5. Verarbeitung anwählen: 


5.1. Gerade 1 eingeben: (DEF) A drücken. 

5.1.1. Kontrollanzeige "Gerade 1‘ mit (ENTER) löschen. 

5.1.2. Bei Anzeige ''x(1) =_’ Wert x, eintasten und (ENTER) drücken. Die 
Betätigung von (ENTER) ohne vorherige Zahleneingabe führt zur 
Eingabewiederholung von x; und yı und zur Fortsetzung bei Punkt 
5.1.4. 

5.1.3. Bei Anzeige ''y(1)=_ Wert y; eintasten und (ENTER) drücken. Die 
Betätigung von (ENTER) ohne Zahleneingabe führt zur Eingabewieder- 
holung von y;. 

5.1.4. Kontrollanzeigen "1: x(1)=NN” und 1: y(1)= NN’ jeweils mit 
(ENTER) löschen. 

5.1.5. Bei Anzeige ''x(2) = _'’ über die weitere Fortsetzung entscheiden: 
5.1.5.1. Koordinateneingabe Punkt 2: Wert x» eintasten, (ENTER) 

drücken und bei Punkt 5.1.6. fortsetzen. 
5.1.5.2. Eingabe der Steigung: (ENTER) ohne vorangehende Zahlen- 
eingabe drücken und bei Punkt 5.1.8. fortsetzen. 

5.1.6. Bei Anzeige ''y(2) = _'' Wert y, eintasten und (ENTER) betätigen. 

5.1.7. Kontrollanzeigen 2: x(2)=NN’ und ‘2: y(2)= NN’ jeweils mit 
(ENTER) löschen und bei Punkt 5.1.10. fortsetzen. 

5.1.8. Bei Anzeige "Winkel alpha = _'' Steigungswinkel der Geraden in Alt- 
graden eingeben und (ENTER) drücken. Die Betätigung von (ENTER) 
ohne vorangehende Zahleneingabe führt zu Punkt 5.1.5 zurück. 

5.1.9. Kontrollanzeige "alpha = NN’ mit (ENTER) löschen. 

5.1.10. Die Ergebnisse werden jeweils mit (ENTER) abgerufen und zwar: 
Steigungswinkel, alpha= NN, Abschnitt x-Achse: a=nn, Abschnitt 
y-Achse: b=nn. Daraufhin verlöscht die Anzeige bis auf das Bereit- 
schaftssymbol. 


5.2. Gerade 2 eingeben: (DEF) S drücken. Eingabe und Verarbeitung laufen in 
Übereinstimmung mit Punkt 5.1 ab. In beiden Fällen dürfen nicht zwei gleiche 
Punkte eingegeben werden; der Rechner reagiert darauf mit dem Fehlerhinweis 
"Eingabefehler‘’, die Anzeige verlöscht und die Eingabe ab Punkt 5.1 bzw. 5.2 
kann wiederholt werden. 

5.3. Abruf der Koordinaten des Geradenschnittpunkts und des Zentriwinkels: 
(DEF) S drücken; die Ergebnisse werden in Übereinstimmung mit dem Aus- 
druck der Testbeispiele angezeigt; die einzelnen Ausgaben werden jeweils mit 
der Betätigung von (ENTER) so lange abgerufen, bis die Anzeige bei Erscheinen 
des Bereitschaftssymbols verlöscht. 
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1 Basisprogramme 


6. Ausdruck eines Verarbeitungstitels und einer kurzen Verarbeitungsanleitung; die An- 
zeige verlöscht; Verbleiben des Bereitschaftssymbols. 
7. Beginn der Verarbeitung analog Punkt 5; Eingabedokumentation und Ergebnisaus- 
gabe erfolgen entsprechend der ausgedruckten Testbeispiele. Beim Ausdruck der 
Ausgangswerte der Geraden wird die Geradengleichung nicht in der Achsenabschnitts- 


form (Normalform), sondern mit y = - bx/a + b angegeben. 


Bei gleichem Steigungswinkel wird in der Ergebnisausgabe der Texthinweis "Gerade 


1” 


parallel’’ verwendet. 


KIKKEKKKKKKKKKKTKK 
Gerade, Winkel 
KKKKKKKKKKKKKKKKK 


DEF Verarbe ıtung 


u. 1m mn an 0m Tu we dem Hums Hin Gum gun mn a Hr TEE en Hrn 


A - Gerade ] 
S - Gerade 2 
x - Schnittpunkt 


Gerade 1:y=-bx/7/atb 


x(1l) = DB 
ul) = 3 
x(2) = 125 
y(Z) = 3 


Steiıgungswinke | 
alpha= BD 


Abschnitt x-fAchse 
a = ]E 99 


Abschnitt y-Achse 
b = 3 


Gerade 1:4y=-bx/7/a+b 


0m mm (eu sun mb Grm Grm (ED guum dem Geb (MER Grmmm (MER demmb Gum Geis (run 


x(1) = 15 
yc]) = 25 
x(2) = ]5 
uCc2) = 38 


Steigungswinke | 
alpha= 98 


Abschnitt x-Achse 
a = 15 


Abschnitt y-Achse 
b = ]E 99 


Gerade 1?4y=-bx/a+tb 


“m mm dien gie ame wen guun Gems mEb dumm dm Gmmb (mm (mb (Mn Gm des amum 


Steigungswinkel 
alpha= 21.88149949 


Abschnitt x-Achse 
a =-6,5 


Abschnitt y-Achse 
e) = 2.6 


Gerade 2:y=-bx7/a+tb 


u Cm Gm Em Gere gun Ge Gum dene Jene Surm Ammi amee deme Geme Gumue TMER TB 


Steigungswinkel 
alpha= 45 


Abschnitt x-fchse 
a =4 


Abschnitt y-fÄchse 
b =--4 


Schnitt Gerade I1+2 
Schnittpunkt 

x(s) = ]1 

y(s) = 7? 


Zentriwinkel 
beta = 23.1985985]1 


Gerade 1:y=-bx/a+b 


onen mm Gnm vum (um des derb (mm gun Gmb GEEB Gem Auml GuS GEEm Gum mm Gun 


x(1l) = 2 
y(l) =5 
x(2)3 =4 
y(2) = 7? 


Steiygungswinke| 
alpha= 45 


Abschnitt x-Achse 
Q. =-3 


Abschnitt y-fchse 
b = 3 


Gerade 2:y=-bx7a+b 


Steigungswinke | 
alpha= 45 


Abschnitt x-Achse 
a = 4 


Abschnitt y-Achse 
b =-4 


Schnitt Gerade 1+2 


Sm mm Quib mb Geb Gm GEEEn dem weile dem Guies gen Geb Gum ED DEE Gm Grm 


Gerade parallel 


Beispiele zu 1.5 Schnitt zweier Geraden, Zentriwinkel 


1.6 Wurzeloperationen 23 


1.6 Wurzeloperationen 


Computerunterstützte mathematische Wurzeloperationen haben meist nur den positiven 
Ergebnisteil als Ergebnis. Dabei wird zusätzlich vorausgesetzt, daß die Zahl, aus der die 
Wurzel zu ziehen ist, auch positiv ist. Das Ziehen von Wurzeln aus negativen oder gar 
komplexen Zahlen ist normalerweise mit Computern nicht möglich; diese Aufgabe läßt 
sich aber durch eine individuelle Programmierung lösen, für die wir im folgenden Beispiel 
die Voraussetzungen schaffen wollen. 


Nachdem außer der Quadratwurzelfunktion meist keine weitere Wurzelfunktion vorhan- 
den ist, wohl aber eine Exponentialfunktion, werden wir — was vor allem bei höheren 
Wurzelexponenten wichtig ist — auf folgende geänderte Aufgabenstellung zurückgreifen: 


n 

Yxaxı". 
Dazu kommt aber noch, daß wir nicht allein aus positiven, sondern auch aus negativen 
und komplexen Zahlen eine n-te Wurzel ziehen wollen. Eine komplexe Zahl besteht aus 
zwei Zahlenteilen und zwar aus dem reellen und dem imaginären. Der imaginäre Zahlen- 
teil erhält anstelle der Wurzel aus - 1 die Kennzeichnung i. Eine komplexe Zahl wird 
durch 


z=atb-i 


allgemein dargestellt. 


Von den beiden möglichen Lösungsmethoden aus einer komplexen Zahl, die natürlich 
auch die positiven reellen Zahlen enthält, die Wurzel zu ziehen, wählen wir wegen der 
universellen Anwendbarkeit die goniometrisch/vektorielle. In einem zweiachsigen Ko- 
ordinatensystem wird die Zahl z nicht durch die Koordinaten x und y, sondern durch 
den Vektor r und die Winkel » dargestellt, wie dies aus der Skizze abgelesen werden 
kann: 


y 





Die n Lösungen der n-ten Wurzel lassen sich durch die nachstehende Skizze verdeutlichen, 
in der für n stillschweigend die Zahl 3 gewählt wurde. 





Lösung 2 . 
Lösung 1 





Lösung 3 
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Es gelten folgende Beziehungen: 
a=r'cosp; b=r'siny; tanp=b/a; r= Ya? +b. 


Um den Winkeln p = 180 und y = 270 Altgraden auszuweichen, berechnen wir p aus der 
Beziehung 


y= arc cos (afr). 

Bei negativem Vorzeichen des Imaginärteils gilt 
cosyp = cos (360 - p). 

Die Ausgangszahl z wird nun umgewandelt wie folgt angeschrieben: 
z=r'cospti'r"sinp=r'(cosp+i'sinp). 


Es giltnun 


x = Ya +b°i> Yr-(cosp + i-siny) = Yr- (cosp + i-sinp)"". 
Mit Hilfe der Moivre’schen Umwandlungsformel ergibt sich nachstehender Lösungsansatz: 


(cosy +sinp)* =cospx +sinpx und 
x = vr: (cos (p + k:36®)/n + i- sin (p + K 36®)/n). 


Der Wert k läuft von O bis n - 1 und ergibt somit alle n Lösungen. 


Speicherorganisation 


A — Realteil a der komplexen Zahl 

— Imaginärteil b der komplexen Zahl 

— Winkel y/n 

36®/n 

— (y+k:36®)/n 

— laufender Index 

— Wurzelexponent, der im Programm als ganze Zahl zwischen 2 und 99 als zulässig an- 
gesehen wird 

— Radius r 

— Realteil der Wurzel 

— Imaginärteil der Wurzel 


-Yr 


Die Verarbeitung kann sowohl mit als auch ohne Drucker abgewickelt werden; da die An- 
zahl der Dezimalstellen mit 9 beschränkt wird, lassen sich bei der Anzeige komplexe 
Zahlen in einer Zeile darstellen. Im Ausdruck finden Sie anhand der Testbeispiele wegen 
der Beschränkung auf 18 Zeichen je Zeile bei der Schriftgröße 2 eine zweizeilige Zahlen- 
darstellung. 


zzonmo 
| 


NHIVID 


1.6 Wurzeloperationen 
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:"ROOT":CLEAR 


S$="Wurze |-Ope 


11B: 


CLS :IF cA=D) 
AND CB=B) THEN 
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: S$=STR$ S: T$= 


STR$ T: IF KZ=1 


ration": T$="xk 82 THEN 298 
XK"SPRINT T$5" 120: R=1 CAXA+BKB)I:F 238: LPRINT "WC"; 1$ 
"3S$;" "3TEEN =ACS (A/R):A$= st )="; 
=2 STR$ A:B$=STR$ 248: IF SC>RLPRINT 
2B:K2=1: INPUT "An B: IF B<BLET F= S$ 
zeige 1’Druck 362-F 258: IF (SC>DR)JAND < 


2CENTER)"SKZ 138: F=F/N:G=36B/N: T>BITAB 5: 
38: IF cKZ<1DOR CK Z=RrCI/ND LPRINT "+"; 

Z>Z2>OR CKZ-INT 14B: IF KZ=1THEN 28 268: IF T<BTAB 5 

KZ<>B)ITHEN 2B 2 27B: IF T<>RLPRINT 


48: IF KZ=2CSIZE 2 15B:_LF 1:L_LPRINT N$ Tg," 
‘COLOR B:LFR |: = Wurzel aus" 28B:CLS :LF 1:6G0TO 
GOSUB 368: 16B: IF A<>BLPRINT 338 
_PRINT " "35,S$: a$ 298: W$="": IF S<>B 
GOSUB 36B:LF 1 178: IF (cA<>DRIAND < LET W$=S$ 
SB: INPUT "Wurzele B>R)LPRINT "-r" 3BB:xX$=""s IF CS<>B 
xponent = "5N ; AND <T>BILET 
68: IF CN<ZIOR (ND 18B: IF B<>BLPRINT gg='+! 
9S9)0OR (N-INT N B$;": 310: Y$="",2$="";TF 


“>R)THEN 58 198: LPRINT "------ TC>AQLET Y$=T$: 
7B: N$=STR$ N FE EEE EIGENER " Z$=2"1" 
BE: PRINT "Z= 288:FOR 1=1T0 N 328: PRINT W$;X$;v$ 
219: 1$=STR$ ]:H=f+ ;2$ 


1“ 


0"; 
: CURSOR 2: INPUT 


Programmlisting 1.6 Wurzeloperationen 


Bedienungsanleitung 


GXC1-13:S=INT 
CIEIKZXCOS H+. 


NEXT I: INPUT " 


Weiter? Ja ICE 


Q SY/1EI:T=INT C NTER)" ZW: GOTO 
188: LURSOR 14: \EIXZXSIN Hr.S =1%) 
INPUT B >/1E9 34B: IF KZ=2LF 4 
358: END 
368:LPRINT "XXKXKKKX 


KKIKKKKKKKKKU: 
RETURN 


1. Programm mit RUN (ENTER) oder RUN "ROOT (ENTER) starten. 

2. Kontrollanzeige ''**** Wurzel-Operation ****'' mit (ENTER) löschen. 

3. Bei Anzeige ‘Anzeige 1/Druck 2 (ENTER) _ über die weitere Fortsetzung ent- 
scheiden: 
3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken. 


3.2. Druck: 2 (ENTER) drücken; Ausdruck eines Verarbeitungstitels. 
Unzulässige Eingaben führen zur beschriebenen Anzeige zurück. 

4. Bei Anzeige ""Wurzelexponent = _'' Wert für den Wurzelexponenten als ganze zwi- 
schen einschließlich 2 und 99 liegende Zahl eintasten und (ENTER) drücken. Bei 
Wiederholungen kann die Eingabe einer Zahl unterbleiben (Eingabewiederholung), 
wobei (ENTER) ohne vorangehende Zahleneingabe gedrückt wird. Unzulässige Ein- 
gaben führen zum Verbleiben bei der beschriebenen Anzeige. 
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1 Basisprogramme 
Bei Anzeige ''Z = i (ENTER) 
drücken. 
Bei Anzeige ''Z =? I Realteil 


a der Ausgangszahl eingeben und (ENTER) drücken. 

Bei Anzeige "Z = NNN.NN ? I“ Imagi- 

närteil b der Ausgangszahl eintasten und (ENTER) drücken. Auch in diesen beiden 

Fällen läßt sich bei Betätigung von (ENTER) ohne vorangehende Zahleingabe eine 

Eingabewiederholung bewerkstelligen. Nulleingaben sind mit Betätigung der Taste O 

möglich. Wird allerdings in beiden Fällen die Zahl O eingegeben, geht der Rechner 

zu Punkt 5 zurück. 

Ergebnisausgabe über Anzeige oder Drucker. Werden n Lösungen angezeigt, ist je- 

weils die nächste mit Betätigung der (ENTER)-Taste abzurufen. 

Bei Anzeige “Weiter? ja 1 (ENTER) _‘ soll über die weitere Fortsetzung entschieden 

werden: 

9.1. Verarbeitung fortsetzen: Beliebige Zahl eintasten, (ENTER) drücken und bei 
Punkt 4 fortsetzen. 

9.2. Verarbeitung beenden: (ENTER) ohne vorangehende Zahleneingabe drücken. 
Bei angeschlossenem Drucker erfolgt ein mehrfacher Zeilenvorschub zum be- 
quemen Abitrennen des Druckstreifens. Eine neue Verarbeitung kann in diesem 
Fall nur von Punkt 1 aus vorgenommen werden. 


Aus den nachstehenden Testbeispielen ist ersichtlich, daß Leermeldungen beim Druck 
nicht berücksichtigt werden. 


KKKKKKKKKKKKKIKKKK 3.Wurzel aus WCE1)=2 
Wurze I-Operat ıon 25.56 
KKKKKKKKKKKKKKIEKK -2.13ı WC2)=2i 
WCE1)=-1.423286787? WC3)=-2 
2.Wurze! aus +2.5938651R9ı 
8] W4)=-2i 
44444 WC2)=-1.544749685 
WC12=9 -2.5121452?78i 
5.Wurzel aus 
WC2)=-9 W(3)=2.9479564?1 7.59375 
-28.081?71983ı +++ 
WC1)=1.5 
3.Wurze| aus 2.Wurzel aus 
-B.888 -5. 589489 WC2)=B. 463525492 
4444-1117 270000724 +1.426584724 1 
WC1lD=B.]1 WC13=2.562 1 
+B.1732858281 ı WC3)=-1.213525492 
WC2)=-2.567 ı +B.8816778>78i 
WC2)=-B.2 
W(C4)=-1.213525492 
NK3B)=D. 1 Wurzel aus -0.8816778>8i 


-B. 173285881 ı 
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WCS5)=B.4635254932 
-1.426584724 ı 
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1.7 Zweidimensionale Statistik 


Zur Lösung verschiedener meßtechnischer Probleme oder Auswertungen von Prüfergebnis- 
sen bedient man sich häufig der Methoden der Statistik. Einen der häufigsten Werte stellt 
der Mittelwert einer Reihe von Messungen dar, und die Güte desselben wird durch die 
Standardabweichung bestimmt. Vielfach werden Mittelwert und Standardabweichung von 
Meßpunkten in einem zweidimensionalen Koordinatensystem errechnet. Wird nur je ein 
Element benötigt, könnte man ein einfacheres Programm schreiben; die Lösung ist aus 
dem angeschriebenen Formelmechanismus leicht abzulesen. 

Unser vorliegendes Programm ermittelt also die Mittelwerte und die Standardabweichun- 
gen von Meßpunkten eines zweidimensionalen Feldes. Die Lage eines Meßpunkts wird 
durch die Koordinaten x; und y; bestimmt. Die statistischen Funktionen sind im allge- 
meinen Teil der Grundeinrichtung von Taschenrechnern; bei BASIC-Computern fehlen 
sie. 


Formelmechanismus 


— Xi _ 2y; 

Mittelwerte: Kam YaATT 
Ex -(Ex,)/n [Eyi -(Zy,)®/n 
Standardabweichungen: 0, = |} —————— o, =) — 
n=1 y n- 1 

Speicherbelegung 
A —- Summe x; 
B — Summe x? 
C — Summe y; 
D — Summe y/? 
E — aktueller Wert x; 
F — aktueller Wert y; 
G — Hilfsspeicher 
H — Hilfsspeicher 
N — Anzahl der eingegebenen Wertepaare x;, y; 


Der Wert x,‘ y; bzw. die Summe dieser Werte, an sich Teil des Formelmechanismus, wird 
für die Ermittlung der beiden genannten statistischen Funktionen nicht benötigt und ent- 
fällt in der Aufstellung sowohl der Formeln als auch der Speicherbelegung. 

Das Programm berücksichtigt die einzelnen Varianten in einer Verarbeitung; es ermög- 
licht so die Korrektur einer Fehleingabe, ohne daß deswegen mit der Verarbeitung von 
vorne zu beginnen ist. 

Da eine Eingabekontrolle fehlt, ist dieses Programm nur für einen Betrieb mit ange- 
schlossenem Drucker konzipiert. 


28 1 Basisprogramme 


18: "STXY":CLEAR : ?B: INPUT F 128:LPRINT "Standa 


S$=" XY-Statı 8B:CLS :LPRINT "y rdabw.:":G=A:H 

stik ":T$="XX Lr3RX$;") =";5F =B:U$="x": 

xXXX":PRINT T$; 9B: INPUT "OK? ne ı GOSUB 13B:G=C: 

S$;T$:CSIZE 2: n 1CENTERI"5H> H=D: u$="y"; 

COLOR B:LF ]: LPRINT "Irrtum GOSUB 138P: 

GOSUB 148 ":GOTO 48 GOSUB 15B:LF 4 
2B:LPRINT "X"5S$; 128: A=ArE: B=B+EXE - END 

"X":6GOSUB 14B: 185: C=C+F:D=D+FXF; 13B:LPRINT "SC";U$ 

LF 1:LPRINT "E INPUT "Loesung 9 ="; ICCH-6K 

ıngaben: ":; ® nein 1CENTER G/ND/CN-122: 

GOSUB 158 )";H:GOTO 32 RETURN 

N :LPRINT "Mitte KKKKKKKKRKKKKU: 
4B:LF 1:PRINT "x Iwerte:t: RETURN 

IE Hp Eur LPRINT "Mix) = IDB:LPRINT "= 
52: INPUT E "SA/NELPRINT " SL TTTTTT " 
6B:CLS :LPRINT "x MCy) ="SC/N:LF RETURN 

ANIX$;,") =";5E: l 

PRINT "yc";X$; 

, = ". 


Programmlisting 1.7 Zweidimensionale Statistik 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "STXY’ (ENTER) starten. 

2. Kontrollanzeige ''***** XY-Statistik *****" mit (ENTER) löschen; Ausdruck 
eines die Verarbeitung einleitenden Titeltextes. 

3. Bei Anzeige “x(i) =” (i = laufende Positionsnummer eines Punktes P;) nur (ENTER) 
drücken. 

4. Bei Anzeige "'x(i) = ?’' Wert für x; eintasten und (ENTER) drücken; die Eingabe wird 
zur Kontrolle ausgedruckt. 

5. Bei Anzeige "'y(i) =" nur (ENTER) drücken. 

6. Bei Anzeige ‘'yli) = ?’” Wert für y; eintasten und (ENTER) drücken; die Eingabe wird 
ebenfalls zur Kontrolle ausgedruckt. 

7. Bei Anzeige ‘OK? nein 1 (ENTER) _’ über die weitere Fortsetzung entscheiden: 

7.1. Eingabe korrekt: (ENTER) unbedingt ohne vorangehende Zahleneingabe 
drücken und bei Punkt 8 fortfahren. 

7.2. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und nach 
Textausdruck “'Irrtum‘’ Eingabe ab Punkt 3 wiederholen. 

8. Bei Anzeige "Loesung? nein 1 (ENTER) _’ und über weitere Fortsetzung entschei- 
den: 

8.1. Eingaben fortsetzen: Beliebige Zahl eintasten, (ENTER) drücken und nächste 
Eingabe ab Punkt 3 aufnehmen. 

8.2. Eingaben beenden und Ergebnisse abrufen: (ENTER) ohne vorangehende 
Zahleneingabe drücken; Mittelwerte und Standardabweichungen werden in 
Übereinstimmung mit dem Ausdruckbeispiel ausgegeben. 

9. Eine weitere Verarbeitung ist ab Punkt 1 der Bedienungsanleitung aufzunehmen. 
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Im nachfolgenden Beispielausdrucke wurden drei Eingabeirrtümer begangen und sofort 
behoben. Aus der jeweils folgenden Eingabe ist die Eingabewiederholung zu erkennen. 
Obwohl beide Mittelwerte in gleicher Höhe vorliegen, ist an den Standardabweichungen 
die höhere Qualität des Mittelwerts für die Koordinaten x zu erkennen. 


KKKKKKKKKKKKKKKKKK x(4) = 5B x(9) = 46 
xX xXY-Statıstik X u(4) = 54 y(9) = 34 
KKKKKKKKKKIKKKKKKK 

x(5) = 54 x(1B) = 66 
Eingaben: y(5) = 46 y(1B8) = 58 
------ -- --- ------- Irrtum 

_ x(6) = 532 
x = >> 46) = 62 x(12) = 58 
3 ._. yu(1lßB) = 66 
(7) = 48 

x(2)3 = 52 109) = 50 mean 
y(2) = 38 Mittelwerte: 

x(8) = 58 M(x) = 5B 
x(3) = 498 _ 

DB =: 
4a) = 38 Y 2 Mcy) 5B 
Irrtum x(9) = 66 Standardabw.: 
_ 49) = 36 S(x) = 2.389401077 

x(3) = 48 Irrtum S(y) = 19.32795559 
yc3) = 58 
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1.3 Kurvenanpassung 


Regressionsrechnungen benötigt man häufig zur Auswertung von Meßergebnissen. Dabei 
bedient man sich verschiedener Standardprogramme, die mit Rechnern als Formelsamm- 
lungsteil mitgeliefert werden oder die man zusätzlich käuflich erwerben kann. In diesen 
Programmen sind meist die vier folgenden Ausgleichskurven vereinigt; sie können aber nur 
einzeln berechnet werden: 


© Lineare Regression, ® Logarithmische Regression und 

e Exponentielle Regression, © Potentielle Regression. 

Die Statistik liefert uns zu einer Ausgleichskurve auch die Güte der jeweiligen Anpassung 
in Form eines Korrelationskoeffizienten bzw. Bestimmtheitsmaßes. Wenn nun die Form 
der optimalen Anpassung nicht abgeschätzt werden kann, bedeutet dies, daß alle An- 
passungen durchgerechnet werden müssen. Dies wäre nicht problematisch; jedoch müßten 
jeweils alle Werte nochmals eingegeben werden. Das aber erhöht die Wahrscheinlichkeit 
von Eingabefehlern. 


Diesem Problem begegnet das vorliegende Programm. Die vier Regressionsarten können 
natürlich auch einzeln durchgerechnet werden; wesentlich ist, daß alle vier Regressions- 
formen in einem bei nur einmaliger Eingabe der Ausgangswerte durchgerechnet werden 
können. Damit nun die Ausgleichskurven leichter gezeichnet werden können, werden auto- 
matisch neben der Möglichkeit des Einzelabrufs wie bei Standardprogrammen üblich auch 
20 bis 22 Meßpunkte ausgegeben. Dafür ist die laufende Feststellung von Kleinst- und 
Größtwerten notwendig. 
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Einen weiteren Vorteil bietet dieses Programm mit der Anwahlmöglichkeit der Genauig- 
keit von Ergebnisausgaben: Es kann die Anzahl der Dezimalstellen angewählt werden, 
mit der Eingaben dokumentiert und die Ergebnisse ausgegeben werden. Dieses Programm 
kann nur mit einem Drucker benutzt werden. 


Eingabefehler können sofort, aber auch später richtig gestellt werden. 


Formelmechanismus 


Regression Beziehung Linearform 


linear y=-atb-.x 
exponentiell Iny=Ina+tb-x 
logarithmisch y=-atb-Inx 
potentiell Iny=Ina+tb:Inx 





Aus der Tabelle kann der Status der einzelnen Werte abgelesen werden; die Verhältnisse 
werden aber wegen der besseren Übersicht in einer weiteren Tabelle zusammengefaßt dar- 
gestellt. 


Regression 


linear 


exponentiell 
logarithmisch 
potentiell 





Bestimmtheitsmaß: 
2_ (2 x;"yi- 2 yy/n)® 
(2x2 - (2 x,)*/n)- (2 y2 - (X y,)?/n) 
Regressionskoeffizienten: 
Zx,y-Zx,Dy;/n 
j x? - (Ex,)?/n 
b=(Zy;,-b-Zx,)/n 


Speicherorganisation 


A — aktuelle Eingabe x;; später r“ | — Zahl der Wertepaare x,, y; 
B — aktuelle Eingabe y;; später a J — Regressionskennziffer 

C —- X;min M — Vorzeichenwandler 

D — Yımin Nbis R — Indexspeicher 

E — X;max DZ — Dezimalstellenzahl 

F — Yımax xl — Rückstellspeicher x; min 
G — x; für aktuelle Verarbeitung, später a Yı — Rückstellspeicher y; min 
H — y; für aktuelle Verarbeitung, später b XA — Rückstellspeicher x; min 


YA — Rückstellspeicher y; max 


1.8 


Kurvenanpassung 


Statistische Werte im Datenfeld nach DIM A (30): 


Tabelle der /ndexziffern 


Stat. Wert OPT LIN EXP LOG POT 





12: 


22: 


3B: 


ap: 


5ß: 


BB: 


"OREG":CLEAR : 
S$=" Kurven-": 
T$="Anpassung 
":DIM AC3BD: 
PRINT "XXXX";,S 
3; T$;"KKKKN 
CSIZE 2:COLOR 
B:DZ=4:LF ]: 
GOSUB ?B: 
LPRINT S$; T$: 
GOSUB ?B:LF 1]: 
LPRINT "DEF Ve 
rarbe ıtung": 
GOSUB 88 
LPRINT " "; 
T$:LPRINT "A - 
lınear": 
LPRINT "S - ex 
ponent siell" 
LPRINT "D - lo 
garıthmısch": 
LPRINT "F - po 
tentiell": 


LPRINT "G - op 
tımal":LF 1] 
LPRINT "N - De 
zımalen": 
LPRINT "C - Ir 


rtum beheben": 
LPRINT "L - Lo 
esungsabruf" 


LPRINT "J - x, 
yeıngeben': 
LPRINT "X - Sc 


haetzwert x": 
LPRINT "Z - Sc 
haetzwert y": 
GOSUB 8B:LF 4: 
END 


2B: 


80: 


92: 


12B: 
112: 
12B: 
132: 
l4aD: 
158: 


1628: 
172: 


182: 
185: 


\9B: 


LPRINT "XXXXXX 
XKKKKKKKKKKIK: 
RETURN 

LPRINT "------ 
RETURN 

"N": INPUT "Dez 
malen = "5DZ2: 


IF CDZ<B)OR (CD 
ZIBIOR (CDZ-INT 
DZ<>B)LET DZ=4 
:GOTO 98 


PRINT D2;5" Dez 
ımalen":END 
"G"3K$="OPT "; 


J=B:G0OT0 16B 
"AYSK$="LIN"SJ 
=1:GOTO 168 
"SVYSK$="EXP":) 
=2:6G0T0O 168 
"DFYISK$="LOG":J 
=3:GOTO 168 
"FFSK$S="POT";J 
=4:G0T0 168 
FOR 1=1T0 38 
ACII=B:NEXT I: 
1=9:0=J:C=9E99 
:D=C:E=-CiF=E: 
PR=B: GOSUB 66B 
:LPRINT "Eınga 
ben: 

M=1 

IF M=1ILET 1=1I+ 
l 


"J"SWAIT 1: 
USING : 1$=STR$ 
T:PRINT "xC";1 
N)" 


2BB 


21P: 


222: 
224; 


225: 
226: 
227: 
228: 
2293: 
23B: 
24B: 
25B: 
26B: 
272: 
28P: 
281: 


282: 


283: 
284: 


292: 
3BPp: 


31D: 


32B: 


31 
INPUT A 
CLS :PRINT "yc 
"s1$;") = " 
INPUT B 
CLS :WAIT :TF 
M=1THEN 238 
IF A=CLET C=X] 
IF A=ELET E=XA 
IF B=DLET D=Y] 
IF B=SFLET F=YA 
GOTO 278 
IF A<CLET X1=C 
:C=A 
IF A>ELET XA=E 
:E=A 
IF B<DLET YI=D 
“ND=B 
IF B>FLET YA=F 
F=B 


G=MXA:H=MXB: IF 
M=ILF 1 

GOSUB (DZ+?9)X 
1B:LPRINT "x"; 
CSIZE 1:LPRINT 
1$; 

CSIZE 2:LPRINT 
" z";TAB 656: 
LPRINT "y"; 
CSIZE 1:LPRINT 
i$; 

CSIZE 2:LPRINT 
" =",TAB 6;H 
IF J=BTHEN 418 
G=A:H=B: N=1+6%X 
Q 

IF (Q=3)0OR (O= 
Aa)LET G=LN G 
IF (8=2)0R (Q= 
a)LET H=LN H 
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33B: 
34B: 
35B: 
362: 
37B: 
375: 


38B: 
385: 


39B: 
4DßB: 


412: 
420: 
425: 


432: 


448: 


45ß: 


a6ß: 


470: 


480: 
492p: 
5dB: 


O=MXG: GOSUB 4B 
1) 

0=0XG: GOSUB 48 
1%) 

O=MXH: GOSUB 48 
D 

O=DXH: GOSUB 4D 
D 

O=MXGXH: GOSUB 
anD 

IF I>999THEN 4 
3B 

IF J=BRETURN 
IF M=-1LET 1=] 
-] 

GOTO 188 
ACNI=SACNI+O:N= 
N+]: RETURN 

FOR Q=1T0 4 
GOSUB 382: NEXT 
Q: IF M=-I1LET ] 
=]--] 

IF 1<999THEN 1 
8D 

"L":CLS :1I=]-1 
: GOSUB 88: IF )J 
=BTHEN 4989 
B=1+6%XJ: FOR As 
1T0O 5 
ACAI=ACBI:B=B+ 
l2NEXT A:A=ACS 
I-ACIIKACZHI/I: 
H=A7/CACZI-ACLD 
XAC13/D 
G=(CAC3I-HXACI) 
I/12A=HXA/CACA 
I-ACZBIKACZI/D 
ACB)I=SA:IF (J= 
2>DOR CJ=4)LET 
G=EXP G 

IF R<S>BTHEN 5? 
2 


RETURN 

FOR J=1T0 4 
R=B:GOSUB 44B: 
NEXT J:A=B: FOR 
B=12T0 38STEP 
6 


512: 


515: 


520: 


53B: 


542: 


55ß: 
55P: 
57B: 


58B: 


585: 


59B: 


64B: 
65PB: 


66PB: 


665: 


67B: 
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IF ACBI>ALET A 
=A(B) 

NEXT B 
L$="LIN":J=1: 
IF A=ACI2)ITHEN 
56 

L$="EXP": J=2: 
IF A=AC18)THEN 
56B 

L$="L0G": J=3: 
IF A=AC24)THEN 
56B 
L$="POT":J=4 
GOSUB 44B 
PR=1:60SUB 668 
-LPRINT "Ergeb 
nısse:":LF ]: 
LPRINT "r ="; 
TAB 6; A: P=G: 
GOSUB 758: 
LPRINT "a ="; 
TAB 6;P:P=H 
GOSUB 758: 
LPRINT "ob ="; 
TAB 6; P:N=<CE-C 
I»/1R:N=C:0=67B 
:GOSUB 648: M=C 
F-D)/1B:N=D:0= 
>18:GOSUB 648 
GOSUB 8PB:LF 4: 
END 

"C":3CLS :M=-]: 
LF 1:LPRINT "K 
orrektur":1I=]- 
1:C6COTO 198 

FOR Q=1T0 11 
GOSUB O:N=N+M: 
NEXT Q:RETURN 
IF PR=BPRINT T 
$;K$;L$:LF 2: 
LPRINT T$;K$;L 
$:G0OSUB 8B:R=] 
:GOTO 768 

LF 2:LPRINT T$ 
ıK$;L$:6G0OSUB 8 
A:R=1:G0OTO ?6D 
A=N: P=N:B=G: IF 
(J=3)0OR (J=4) 
LET A=LN A 


682: 
69B: 


?BB: 
?71B: 


722: 


738: 


742: 
75B: 
76B: 


772: 


775: 
78B: 


785: 
798: 


8BB: 
8l1ß: 
82B: 
832: 
8482: 
85B: 
862: 


87B: 
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IF cJ=2)OR (J= 
a)LET B=LN B 
I=B+HXRA: IF (J= 
2)OR CJ=4)LET 
I=EXP 1 
GOTO 738 
A=N: T=N:B=G: IF 
J=2)0OR (J=4) 
LET A=LN A:B= 
LN B 
P=(A-B)/H: IF ( 
J=3)0OR (J=4) 
LET P=EXP P 
GOSUB ?74B:LF 1 
:LPRINT "x ="; 
TAB 6; P:LPRINT 
"y=";TAB 651: 
RETURN 
R=9;GOSUB 768 
R=16 
@CR)>=INT (CIBrD 
ZXRCRI+.S)7/1Br 
DZ2:GOSUB (DZ-+? 
9)X1R:RETURN 
"Z": INPUT 'x = 
"3N: GOSUB 672 
END 
"X"; INPUT '"y = 
"SN:GOSUB ?71B 
END 
USING "HHHHHHH 
#KHHHH": RETURN 
USING "HHHHHHR 
###.#8" RETURN 
USING "HHRHHHHH 
44. 4#": RETURN 
USING "HHHHHHH 
#4. 4##": RETURN 
USING "HHRRHHH 
#HHHH": RETURN 
USING "HHHHHH,. 
HHHHR"SRETURN 
USING "HHRRR.H 
HHHH#": RETURN 
USING "HERR. HH 
HHHHH"S RETURN 
USING "HHHR.HH# 
HHHHH"S RETURN 
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Bedienungsanleitung 


1. 
2. 


Programm mit RUN (ENTER) oder RUN "OREG’ (ENTER) starten. 


Kontrollanzeige ''**** Kurven-Anpassung ****' mit (ENTER) löschen. Ausdruck 
einer Verarbeitungsanleitung. Die Anzeige verlöscht, und das Bereitschaftssymbol 
erscheint. 

Im Bedarfsfall sollte an dieser Stelle die Anzahl der Dezimalstellen mit (DEF) Nan- 
gewählt werden, wenn nicht mit der standardmäßig eingestellten Anzahl 4 gearbeitet 
wird. Bei Anzeige "'Dezimalen = _'’ zwischen einschließlich O und 8 gelegene ganze 
Zahl eintasten und (ENTER) drücken; Kontrollanzeige ''n Dezimalen‘ mit (ENTER) 
löschen. Mit der Anzeige des Bereitschaftssymbols ist die Eingabe beendet. Die Be- 
tätigung von (ENTER) ohne vorangehende Zahleneingabe bewirkt die Anwahl von 
4 Dezimalstellen. 


Anwahl der Regressionsart: 


4.1. Lineare Regression: (DEF) A drücken. 
4.2. Exponentielle Regression: (DEF) S drücken. 
4.3. Logarithmische Regression: (DEF) D drücken. 
4.4. Potentielle Regression: (DEF) F drücken. 
4.5. Optimale Regression: (DEF) G drücken. 


In allen Fällen wird daraufhin die angewählte Regressionsart angezeigt und nach 
der Betätigung von (ENTER) ein einleitender Text ausgedruckt. 
Die Anzeige "x (i) = ?’ entscheidet über die weitere Fortsetzung: 


5.1. Eingaben fortsetzen: Wert für x, eintasten, (ENTER) drücken und bei Punkt 6 
fortsetzen. 

5.2. Eingabeirrtum richtigstellen: (DEF) C drücken und bei den in den Punkten 5 
und 7 beschriebenen Anzeigen jeweils (ENTER) drücken, wenn es sich um 
einen sofort erkannten Eingabefehler handelt, bzw. die früher irrtümlich ein- 
gegebenen Werte nochmals eingeben, (ENTER) drücken und bei Punkt 5 fort- 
setzen. 

5.3. Eingaben beenden und Ergebnisse abrufen: (DEF) L drücken, worauf Bestimmt- 
heitsgrad, die Regressionskoeffizienten a und b sowie die Koordinaten von 20 
bis 22 Meßpunkten ausgegeben werden. Nach einem mehrfachen Zeilenvor- 
schub zum bequemen Abitrennen des Druckstreifens ist die Verarbeitung mit 
Anzeige des Bereitschaftssymbols beendet. Eine neue Verarbeitung ist ab Punkt 
1 vorzunehmen. 


Bei Anzeige ''y(i) = ?" Wert für y; eintasten und (ENTER) drücken; Kontrollaus- 
druck. Die Betätigung von (ENTER) ohne vorangehende Zahleneingabe bewirkt in 
beiden Fällen die Wiederholung der zuletzt getätigten Eingabe. Es wird bei Punkt 5 
fortgesetzt. 


Folgende Einzelabrufe der Koordinaten von Punkten der Ausgleichskurve können 

vorgenommen werden: 

7.1. Schätzwert x: (DEF) X drücken; bei Anzeige ’'y = _'’ Vorgabe y eintasten und 
(ENTER) drücken. Der Schätzwert x wird ausgedruckt. Die Betätigung von 
(ENTER) ohne vorangehende Zahleneingabe führt zum Verlöschen der An- 
zeige. Eingaben zu großer Vorgaben führen zur ERROR-Anzeige; dieselbe mit 
(CL) löschen und neue Anwahl treffen. 

7.2. Schätzwert y: (DEF) Z drücken und Eingabe analog zu Punkt 7.1. durchführen. 
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Im Beispielausdruck ist der Bestimmtheitsgrad mit r bezeichnet, obwohl damit tatsächlich 
r? gemeint ist. In Punkt 4 wurde ein Eingabeirrtum begangen, der aber sofort erkannt und 
richtig gestellt wurde. Bei dieser Korrektur erfolgt gleichzeitig auch eine allenfalls erfor- 
derliche Richtigstellung der Kleinst- bzw. Größtwerte für die eingegebenen x; und y;. 


KKKKKKKKKKKKKKKKKK 
Kurven-Anpassung 
XKKKKKKKKKKKKKKTKHK 
DEF Verarbe ıt ung Anpassung DPT EXP 
Anpassung Ergebnisse: = 5.0008 
S - exponent iell r = 2.9989 * 
D - logarıthmısch a = 2.8862 x = D.9978 
F - potentiell b = 2.9991 y= 5.4366 
G - opt ımal 
x = 1.8888 x = 2.8495 
N - Dezimalen y= 5.4484 y= 34.5759 
C - Irrtum beheben 
L - Loesungsabruf x = 1.4888 x = 3.4614 
J = x, y eingeben y= 8.1258 y= 63.7153 
x -— Schaetzwert x 
Z - Schaetzwert y x = 1.8888 x = 3.8383 
----- - - - - --------- y= 12.116? y= 92.8546 
x = 2.2BBDB x = 4,1115 
Anpassung OPT y= 18.8693 y= 121.9948 
Eimaahen: x = 2.6888 x = 4.3259 
ingaben y= 26.9462 ya 151. 1333 
= . 88828 
= ae x = 3.0008 x= 4.5024 
j y=s 49.1842 y=s 188.2?726 
= 3.9188 
u. Ion om x: 3.0000 x= 4.6524 
j y= 59.9257? y= 209.412D8 
x = 5.2888 
ya 2968300  * => 3.808 x = 4.7828 
y= 89.3657 y= 238.5513 
x = 16894. 0888 
un IBemee *° 4.208 x= 4.8981 
y=s 133.268? y= 267.698? 
K t 
vorrek  6a34. 0000 x 4.6088 x= 5,0815 
Ya = -18.0BBB8 y= 198.7482 y= 296.8388 
xı = 1.6894 
y = 18.0BBB 
xs = 3.2888 
U = 48.1711 
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1.9 Lineare Gleichungssysteme 


Standardprogramme zur Lösung linearer Gleichungssysteme weisen aus der Sicht von 
Wiederholungsverarbeitungen einen entscheidenden Mangel auf: Sämtliche Ausgangs- 
werte, auch die unverändert in eine neue Rechnung zu übernehmenden, müssen erneut 
eingegeben werden. Was dies für umfangreichere Gleichungssysteme bedeutet, braucht 
nicht näher erläutert zu werden. 

Aus diesem Grund wird hier ein Programm angeboten, das dem genannten Nachteil be- 
gegnet. Trotz großem Speichervermögen (PC-1500 mit 8 K-RAM-Modul oder PC-1500A) 
können deshalb nur Systeme mit im Höchstfall 14 Gleichungen verarbeitet werden. Eine 
zusätzliche Aufgabe lag darin, die Eingaben in einem Archivspeicherbereich vorzunehmen 
und erst bei Verarbeitungsabruf die Ausgangswerte in einen Arbeitsspeicherbereich umzu- 
lagern. Auf diese Weise ist es möglich, Änderungen im Archivspeicherbereich durchzu- 
führen, ohne daß die übrigen Ausgangswerte erneut eingegeben werden müssen. Eine Auf- 
teilung des Speicherraums in zwei Zonen muß allerdings zu Lasten der Größe eines Glei- 
chungssystems gehen. 

Systeme bestehend aus e Gleichungen mit e Unbekannten werden in allgemeiner Form 
wie folgt dargestellt: 


Koeffizientenmatrix (aj bis age) b-Vektor (b} bis b,) 


a11Xı + a12X2 + a13X3 +... + a1eXe” bı 
ayıXı + a22X2 + ayax3 +... + a2eXe - b2 


Ao1X1 + ag2X2 +ag3X3 +... + AgeXe " De 


Von den zwei möglichen Lösungsmethoden — Determinanten- und Eliminationsmethode — 
haben wir die zweite gewählt und uns dabei an das Standardprogramm zum PC-1211/1212 
angelehnt. Das dort angewendete Verfahren läuft wie folgt ab: 


pP = anm fürm=2bise 

q = a;m/P für i=1bism-1 
4; 7a; g'aAmj für i=1bism-1 
b;, =b;, =-q 'bu- 


Durch wiederholte Berechnung mit i< j wird a;; = ®; es ergeben sich folgende Lösungsan- 
sätze: 

2411Xı = bı daraus folgt x; = b, /a4ı 

a51Xı + 92%, = b, daraus folgt x2 = (ba - a51%1)/aoo 

USW. 
Die einzelnen Abschlußmöglichkeiten des Programms lesen Sie bitte aus der Bedienungs- 


anleitung ab. Wesentlich für dieses Programm ist, daß die Ausgabegenauigkeit mit der 
Anwahl der Dezimalstellen entsprechend eingestellt werden kann. 
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Speicherorganisation 


1 Basisprogramme 


Die Anlage der Speicherbereiche ist dynamisch, damit werden bei der Lösung kleinerer 
Systeme durchaus auch noch andere Programme im Speicher vorliegen können. 


C,F,1,J,K -— Indexspeicher 
A(E-(E+1))— Arbeitsspeicher für a;, und b; 


B-m 

D-p 

E — Anzahl der Gleichungen bzw. Unbekannten 

G -i 

H — Hilfsspeicher, später j 

M-a 

Z —- Anzahl der Dezimalstellen R(E,E) 

S(E) 

18: "LING"SCLS :S$ ZB:DIM ACEXCE+1)) 
="Gleiıchungs-" ı R(CE,E)I, SCE) 
: T$="Systeme": 75: "N"32=9: INPUT 
PRINT "xxx "5S "Dezımalen = " 
$;,T$;" xXrK": ı2:1F C2<BDOR 
TEXT :CSIZE 2: CZ>SYOR (CZ-INT 
COLOR B:LF 1 Z<X<>B)THEN 75 

28:GOSUB 8B: 76: P=1BrZ: END 
LPRINT S$; T$: SD:LPRINT "XKXKKXKX 
GDSUB SP:LF ]: KKKKKKIKRKKITN: 
LPRINT "DEF Ve RETURN 
rarbe ıtung": 9B:LPRINT "------ 
GOSsUB IB 9 mn " 

25:LPRINT "N - De RETURN 
zımalstellen'": 1828: "B":CLS :PRINT 
LPRINT "G - Gl "Eingabe b-Uek 
eıchungszah!" tor": USING : 

3R: FOR I=1T0 E 


LPRINT "2 - Eı 
ng. p.Zeıle": 
LPRINT "S - Eı 
ng. p.Spalte": 
LPRINT "D - LO 
RU-Diagonale" 


4B:LPRINT "X - Lü 


45; 


SB: 


BB: 


RO-Diagonale" 
LPRINT "B - b- 
Vektor":LPRINT 
"A - Element a 
, b" 

LPRINT "L - Lo 
esungsabruf": 
GOSUB 9B:LF 4 
"G"SCLEAR : 
USING :CLS : 
INPUT "Zahl Gl 
eıchungen = "5 
E:IF E>=2IF Ei 
=14lIF E-INT Es 
RTHEN ?B 

GOTD SB 


112: 1$=STR$ ]: 

PRINT "nc"518$; 
") = "; 

128: INPUT H 

13B:CLS :SC1l)=H: 
PRINT "bc"; 1$; 
") = "53H: INPUT 
"OK? neın 1(CEN 
TERY"3H:GOTO 1 
18 

14B:NEXT I1:END 

158: "Z":CLS :PRINT 
"Eingabe zeıle 
nwe ı se": USING 

169: Z=1:PRINT "Ze ı 
le ="; 

1?7B: INPUT Z 

188:CLS :IF (2Z<1) 
OR CZ>IEIOR (CZ- 
INT Z<>BITHEN 
168 

185:PRINT "21="3523 


— Archivspeicher für a;; 
— Archivspeicher für b; 


198: INPUT " OK? ne 
ın L1CENTER)"35SH 
:CLS :GOTO 162 

21B:CLS :FOR 1=ZTO 
E 

228:FOR J=1T0 E 

2382: GOSUB 34B: NEXT 
J:NEXT I:END 

248: "S":CLS :PRINT 
"Eingabe spalt 
enwe ıse ":USING 

258:S=1:PRINT "Spa 
te ="; 

26B: INPUT S 

27B:CLS :IF (S<]) 


OR _(S>PEIOR (S- 
INT S<>B)THEN 


25B 

275:PRINT "Sp="35S; 

288: INPUT " OK? ne 
ın 1CENTER>" 35H 
:CLS :GOTO 25B 

3BßB:CLS :FOR J=STO 
E 

31B8B:FOR I=1TD0 E 

328: GOSUB 348: NEXT 
I:NEXT J:2END 

348: 1$=STR$ 1: J$= 
STR$ J:PRINT " 
aC";1$;}","3J$; 
"="; 

358: INPUT H 

3658:CLS :RCI, J)=H: 
ERINT aszln 
"„"3Jj$;") = 
H: INPUT "OK? N 
eın 1CENTER>"; 
H:GOTDO 34B 

37B: RETURN 

388: "D":CLS :PRINT 
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392: 


42: 


412: 


a2B: 


a3D: 


442: 
445: 


asp: 


abp: 


a4>7D: 
480: 


"Eingabe all, 1 
) bis ale,e)": 
I=1:2J=1:USING 
«FOR K=1T0 E 
GOSUB 34B: 1=1+ 
1:J=J+15NEXT K 
: END 
"X"SCLS :PRINT 
"Eingabe ale, | 
) bis a(ll,e>": 
T=E:2 J=1: USING 
:FOR K=1T0 E 
GOSUB 34B: 1=1- 
1:J=J+1:5NEXT K 
END 
"A"SCLS :PRINT 
"Eıng. Element 
0.Cı, J?/bClı 3)" 
USING :1=]; 
PRINT "Zeile = 
9 
INPUT 1 
CLS :1$=STR$ 1 
IF CcI<1DOR (I 
>EIOR <CI-INT ] 
< >B>THEN 438 
INPUT "bCı3? n 
eın 1CENTERI"; 
H:GOTO 5BB 
ERINT, bc75185 
— 9 


INPUT H 
ULLS :SCI)=EH: 


BIN! "bc";18$; 


492: 
SRR: 


slip: 
515: 


52B: 


53B: 


535: 


54B: 


= "SH: INPUT 
"OK? neın 1ICEN 
TER)>"3H:GOTO 4 
6D 


E.ND 

J=1:PRINT "Spa 
te ="; 

INPUT J 

CLS : J$=STR$ J 


"IF CI<1IDOR CI 
>EIOR CJ-INT J 
<>B)THEN 5BB 

GOSUB 342: END 


"L"SCLS :PRINT 
"Loesungabruf" 
:LF 1:2LPRINT " 
QAusgangswerte: 
":60OSUB 9B: 
LPRINT "Koeff. 
Matr ıx: ":B=E 
K=E:USING :FOR 
1=1T0 E' 

LF 1:FOR J=1T0O 
E 


S5ß: 


56P: 


57B: 


58B: 


59B: 
BRR: 


B1R: 
62P: 


63R: 
B4Bp: 


65P: 
66B: 


67B: 


68P: 
69P: 


RR: 


z/1B: 


72B: 


K=K+l:2ACK)=RCI 
‚JE: 1$=STR$ 1]: 
JS=STR$ I: X=NC 


K)ıXs="a": 
GOSUB 822: NEXT 
J2NEXT ] 

LF 1:LPRINT "b 


-Vektor:":LF |] 
-K=B: FOR 1=1TD 
E 
K=K+1:NACK)=SC]I 
):1$=STR$ 1: )J= 
B:X=ACK):X$="b 
":GOSUB 8BR: 
NEXT I:LF 1: 
LPRINT "Loesun 
gen: ":GOSUB 98 
F=B:60SUB ?79B: 
D=ACK): IF D<>D 
THEN 65B 

FOR G=1T0 B-I1 
GOSUB ?7?7B:D=NAC 
U): IF DS>RLET 
ACK)=D:GOTD 63 
2 

NEXT G 

LPRINT "Keine 
Loesung":LF 4 
USING :END 

FOR H=1T0 B-1 
F=H:GOSUB ?7?8R: 
GOSUB 274B: NEXT 
H: GOSUB ?78B: 
GOSUB 748 

FOR G=1T0 B-1 
F=B:GOSUB ?77?7B: 
M=ACCI7D:FOR H 
=1T10 B-1 
F=H:GOSUB ?7?BR: 
GOSUB 75B: NEXT 
H:GOSUB ?78B: 
GOSUB ?75B: NEXT 
G:B=B-1:1IF B>1l 
THEN 588 

FOR B=1TD E-1 
F=B:60SUB 792: 
IF ACK)=BTHEN 
628 

GOSUB 76B:M=AC 
C):FOR G=B-+1TO 
E 

F=G:60SUB 792: 
GDSUB 758: NEXT 
G!NEXT B:B=E:F 
=E:GOSUB 798: 
IF ACK>=BTHEN 
62B 

GOSUB 768: FOR 
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b=1T0 E 


738: F=G:GOSUB 798: 


1$=STR$ G: J=B: 
X=ZALDIEX$=E"x": 
GOSUB 822: NEXT 
G:GOSUB 9BR:LF 
a: USING :END 


74B: ACKI=ACKI+ACC)I 


« RETURN 


758: ACCI=SACCI-MAAC 


K)ZRETÜURN 


+6RB:ACTI=INT (CPXAC 


UI/ACKI+.DD/P: 
RETURN 


7B:K=EXBHF:C=SEXG+ 


FSRETURN 


788:K=B:[C=G:! RETURN 
>98: C=F:K=EXF-+B: 


RETURN 


8PB: Y=X:Z=BD 
8lB: IF Y-INT Y<>D 


LET Y=1BXY:2=2 
+1:6G0T0O 812 


813:%=1NT (PXX+.5) 


‚P 


82B: GRAPH :SORGN : 


LPRINT X%$: 
GLLURSOR (13, - 
SI;LSIZE 1: 
LPRINT I$:IF J 
SSoLFRINT 3 


83B:GLCURSOR (5B, Bd 


):CSIZE 2: 
LPRINT "="; 
TEXT :TAB 6: 
GOSUB (Z+84)%] 
B:LPRINT % 
RETURN 


848: USING "EHRHHHH 


HERHR"SRETURN 


8IB: USING "HHRHEHHHH 


4##.#" RETURN 


868: USING "HHRHHHH 


Y#.##" RETURN 


87B: USING "HHRHEHHH 


4. ###" RETURN 


888: USING "HRHHHHH 


HEHRVSRETURN 


898: USING "HHRHEHR. 


HEHRR"S RETURN 


9BB: USING "EHER. 8 


HHAHH"S RETURN 


31B: USING "HRRR.HH 


HERHH"SRETURN 


328: USING "EHH. HER 


SERER"S RETURN 


I3B: USING "HR.HHHH 


HEHER"SRETURN 
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1 Basisprogramme 


Bedienungsanleitung 


1. 
2. 


Programm mit RUN (ENTER) oder RUN “LING (ENTER) starten. 


Kontrollanzeige “*** Gleichungs-Systeme ***' mit (ENTER) löschen; es wird eine 
kurze Verarbeitungsanleitung ausgedruckt. 


. Dieser Punkt kann ab der zweiten von mehreren Verarbeitungen auch mit (DEF) G 


angewählt werden. Bei Anzeige "Zahl Gleichungen = _' eine zwischen einschließlich 
2 und 14 gelegene ganze Zahl eintasten und (ENTER) drücken. Unzulässige Eingaben 
wie auch die Betätigung von (ENTER) ohne vorangehende Eingabe führen zur be- 
schriebenen Anzeige zurück. Bei mangelndem Datenspeicher kommt es zu einer 
ERROR-Anzeige. Diese mit (CL) löschen, Speichererweiterung einsetzen und bei 
Punkt 1 oder 3 neu beginnen. 


. Auch dieser Punkt kann ab der zweiten von mehreren Verarbeitungen mit (DEF) N 


angewählt werden. Bei Anzeige ''Dezimalen = _'' eine zwischen einschließlich O und 
9 gelegene ganze Zahl eintasten und (ENTER) drücken. Die Betätigung von (ENTER) 
ohne vorangehende Zahleneingabe bewirkt die Einstellung auf automatisch 9 Dezimal- 
stellen. Unzulässige Eingaben führen zur beschriebenen Anzeige zurück. Bei Eingabe- 
annahme verlöscht die Anzeige und das Bereitschaftssymbol erscheint. 


. Programmanwahl: 


5.1. Zeilenweise Eingabe der Matrixelemente a;;: (DEF) Z drücken und bei Punkt 6 
fortsetzen. 

5.2. Spaltenweise Eingabe der Matrixelemente a;;: (DEF) S drücken und bei Punkt 
15 fortsetzen. 

5.3. Eingabe der Diagonalelemente a.ı bis as.: (DEF) D drücken und bei Punkt 16 
fortsetzen. 

5.4. Eingabe der Diagonalelemente a.ı bis a}.: (DEF) X drücken und bei Punkt 18 
fortsetzen. 

5.5. Eingabe der Elemente des b-Vektors b;: (DEF) B drücken und bei Punkt 20 
fortsetzen. 

5.6. Eingabe eines Einzelelements a; oder b;: (DEF) A drücken und bei Punkt 22 
fortsetzen. 

5.7. Lösungen abrufen: (DEF) L drücken. Daraufhin erfolgt die zeilenweise Auf- 
listung der Ausgangswerte, Berechnung und Ausgabe der Lösungen in Überein- 
stimmung mit dem Ausdruck eines Testbeispiels. Weitere Verarbeitungen kön- 
nen ab den Punkten 1, 3, 4 oder 5 aufgenommen werden. 


. Kontrollanzeige ''Eingabe zeilenweise‘’ bei Gutbefund mit (ENTER) löschen; andern- 


falls ab Punkt 5 neu beginnen. 


. Bei Anzeige "Zeile = "' (ENTER) drücken. 
. Bei Anzeige "Zeile = ?’ eine zwischen einschließlich 1 und e gelegene ganze Zahl ein- 


tasten und (ENTER) drücken. Die Betätigung von (ENTER) ohne Zahleneingabe 
bewirkt die Anwahl von Zeile 1, was für den Beginn einer neuen Verarbeitung wichtig 
ist. Die Eingabe der Zahlen 2 bis e ist nur für Wiederholungsverarbeitungen für Ände- 
rungseingaben sinnvoll. 


. Bei Anzeige "ZI = z’ (z = eingegebene Zeilennummer) (ENTER) drücken. 
10. 


Bei Anzeige '"ZI=z OK? nein 1 (ENTER) _‘’über die weitere Fortsetzung entscheiden: 
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11. 
12. 


13. 
14. 


15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 
24. 


25. 
26. 


27. 
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10.1. Anwahl nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und Eingabe 
ab Punkt 7 wiederholen. 

10.2. Anwahl korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken. 

Bei Anzeige '’a (z, s) = '' (ENTER) drücken. 

Bei Anzeige "a(z, s) = ? Wert des angezeigten Elements a; eintasten und (ENTER) 

drücken. 

Kontrollanzeige "a (z, s) = n‘ mit (ENTER) löschen. 

Bei Anzeige OK? nein 1 (ENTER) _‘ über die weitere Fortsetzung entscheiden: 

14.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und Ein- 
gabe ab Punkt 11 wiederholen. 

14.2. Eingabe korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken. Ist das 
letztmögliche Element a,. noch nicht eingegeben, wird mit der Eingabe des 
nächsten Elements in Punkt 11 fortgesetzt. Andernfalls ist die Eingabe mit Ver- 
löschen der Anzeige und dem Erscheinen des Bereitschaftssymbols beendet. Es 
ist bei Punkt 5 fortzufahren. 

Die spaltenorientierte Eingabe der Matrixelemente a, verläuft wie die zuvor be- 

schriebene für die zeilenweise Eingabe in Übereinstimmung mit den Punkten 6 bis 14. 

Kontrollanzeige ‘Eingabe a(1,1) bis ale,e)’ bei Gutbefund mit (ENTER) löschen, 

andernfalls Neuanwahl ab Punkt 5 vornehmen. 

Elemente in der Reihenfolge a}, bis a.. in Übereinstimmung mit den Punkten 7 bis 

14 eingeben und nach Verlöschen der Anzeige bei Punkt 5 fortsetzen. 

Kontrollanzeige ‘Eingabe ale,1) bis a(1,e)‘' bei Gutbefund mit (ENTER) löschen, 

andernfalls Neuanwahl ab Punkt 5 vornehmen. 

Elemente in der Reihenfolge a,ı bis a). in Übereinstimmung mit den Punkten 7 

bis 14 eingeben und nach Verlöschen der Anzeige bei Punkt 5 fortsetzen. 

Kontrollanzeige "Eingabe b-Vektor‘ bei Gutbefund mit (ENTER) löschen, andern- 

falls Neuanwahl ab Punkt 5 vornehmen. 

Bei Anzeigen "b(z) = (z= Zeilennummer) Elemente des B-Vektors b; in Überein- 

stimmung mit den Punkten 7 bis 14 eingeben und nach Verlöschen der Anzeige bei 

Punkt 5 fortsetzen. 

Kontrollanzeige “'Eing. Element a(i, j)/b (i)’ bei Gutbefund mit (ENTER) löschen, 

andernfalls Neuanwahl bei Punkt 5 vornehmen. 

Bei Anzeige "Zeile = '' Zeilenanwahl analog Punkten 7 und 8 vornehmen. 

Bei Anzeige “b (i)? nein 1 (ENTER) _' über die weitere Fortsetzung entscheiden: 

24.1. Matrixelement a;, eingeben: Beliebige Zahl eintasten, (ENTER) drücken und 
bei Punkt 25 fortsetzen. 

24.2. Element des b-Vektors eingeben: (ENTER) ohne vorangehende Zahleneingabe 
drücken und bei Punkt 27 fortsetzen. 

Bei Anzeige "Spalte = ‘ Spaltennummer analog zu den Punkten 7 und 8 eingeben. 

Bei Anzeige "a(z, s) = ‘' angezeigtes Matrixelement a;, in Übereinstimmung mit den 

Punkten 11 bis 14 eingeben. Nach Verlöschen der Anzeige bei Punkt 5 fortsetzen. 

Bei Anzeige "'b (z) = ' angezeigtes Element des b-Vektors b; in Übereinstimmung mit 

den Punkten 11 bis 14 eingeben. Nach Verlöschen der Anzeige bei Punkt 5 fort- 

setzen. 
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1 Basisprogramme 


Für die Darstellung von Testbeispielen ist noch nachzutragen, daß ein nicht zu lösendes 
Gleichungssystem (singuläre Matrix) wie im ersten Fall zum Textausdruck ‘Keine Loe- 
sung‘ führt. Der Unterschied zwischen den Beispielen 2 und 3 liegt in der unterschied- 
lichen Wahl der Genauigkeit. Beispiel 2 wurde mit 9 Dezimalstellen abgewickelt. Darauf- 
hin wurde nur die Anzahl der Dezimalstellen auf 8 zurückgenommen und ohne neuerliche 
Eingabe der Lösungsabruf nochmals für das vorliegende Gleichungssystem ausgelöst. 


KKKKKKKKKKKKKKKKKK 
Gleıchungs-Systeme 
22 222222 22222208 


DEF Verarbe ıtung 


N - Dezıimalstellen 
G - Gleichungszah | 
2 - Eıng. p.Zeiıle 
S - Eing. p.Spalte 
D - LORU-Diagonale 
x - LURDO-Diagonale 
B - b-Uektor 

A - Element a, b 

L - Loesungsabruf 


num um Gmb DEuD mp dem GBED GRID gu Gukb aus guum dumm (mD demb Gmb (amt Gem 


Ausgangswerte: 


- m Gm emp em dem dem (iD Gun GEBED Gm guum dumm de Gun dem dem amum 


0, 1 
O2 = 1 
Q,, l 
Q,2 = l 
b-UVUektor 

b, = 4.3 
b, = 8.5 
Loesungen: 


Keine Loesung 


Ausgangswerte: 


a, 7 8 
9,2 2 
a, l 
a, > 2 
a,,2 = 4 
a, 7 2 
a5, > l 
0,2 7 2 
a, 7 6 
b-Vektor 

b, = 14 
b, = 14 
b, > 22 
Loesungen 

x, = DB.9933999999 
x, = 1.508808801 
x = 3 


zu 0m rm qui Dee Gem EUR GuED GuD GEB GES Gum demb Geuid dmid Gi GmED Gum 
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Ausgangswerte: 


Koe ff.Matrıx: 


a,, > 8 
Q 2 = 2 
a, > l 
0.21 = 2 
a,, = 4 
a,3 ” 2 
a, - 1 
0,3 2 
A, > 6 
b-UVektor: 

b, = 14 
b, = 14 
b, = 22 
Loesungen: 

x, = l 
x, = l.S 
x = 3 
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1.10 Zahlenumwandlung 


Die Umwandlung einer Dezimalzahl in eine einem anderen System angehörende Zahl ist 
vor allem in der Computertechnik notwendig. Es gibt aber auch andere Verarbeitungs- 
beispiele, die eine Zahlenumwandlung erforderlich machen. Es läßt sich beispielsweise 
durch die Umwandlung einer Monatszahl (1 bis 12) nach Abzug einer 1 in eine Zahl des 
Systems mit der Basis 7 eine bessere Ordnung für die Enddaten 30 bzw. 31 Tage unter 
Ausklammerung des Monats Februar finden. Dies hebt den Knick in der Systematik der 
dezimalen Monatszahlen — Juli und August mit 31 Tagen — auf, und die Ermittlung des 
Enddatums eines Monats aus der Monatszahl wird wesentlich erleichtert. 

Das vorliegende Programm unterscheidet sich von anderen gleichartigen Lösungen in 
folgendem Punkt: Im Rahmen der Kapazität der Anzeige einer Zahl mit maximal 10 
wertführenden Ziffern ist nicht nur die Umwandlung bzw. Rückumwandlung von Zahlen 
aus dem bzw. in das Dezimalsystem möglich, sondern auch die Direktumwandlungen von 
Zahlen aus bzw. nach Systemen mit von 10 verschiedener Basiszahl können mit diesem 
Programm bewältigt werden. 

In der Computertechnik spielt das Binärsystem (Zahlensystem mit der Basis 2, den 
Ziffern O und 1) und das Oktalsystem (Zahlensystem mit der Basis 8 und den Ziffern O 
bis 7) eine bedeutende Rolle. 


Eine Direktumwandlung erfolgt programmintern in zwei Stufen: 


Stufe 1: Umwandlung einer Zahl mit der Basis a in eine Dezimalzahl. 


Die Ziffern sind mit Variablen von z, bis z, und die Stellenwertfaktoren mit a® bis an”! 


bezeichnet: 


Zus zn at "tz, a ?+..+Z, a +z, a®, 


Stufe 2: Umwandlung einer Dezimalzahl in eine Zahl mit der Basis b. 


Die Ziffern sind wieder mit z, bis z, und die Stellenwertfaktoren mit 10° (= 1!) bis 
18°", wobei n die Anzahl der Stellen bezeichnet, angeschrieben: 


Zb = zu: 100 + Zn-1' 10°"? +...t2Z9° 10' + 2Z} - 10°, 


Speicherorganisation 


— Basiszahl Ausgabe 

— Basiszahl Eingabe 

— eingegebene umzuwandelnde Zahl 
zu verarbeitende Zahl (Arbeitswert) 
— umgewandelte Zahl 

— Exponent 

— Index 

— Stellenwertfaktor 


- - zonmu>Dp 
| 
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12: 


20: 


38: 


40: 


Sp: 


6B: 


?B: 


BP: 


92: 
1BB: 


112: 


12P: 
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"ZUMW":CLEAR : 
S$="Zahlenumwa 
ndlung" 

x=1: INPUT "Anz 
eıge 1/Druck 2 
CENTER)J"3X 

IF CX<1DOR (X> 
23DOR (CX-INT x 
>B>THEN 28 
A$="CDEF)":B$= 
" Verarbe ıtung 
",Cc$="A - "DE 
="Dezımal-Bına 


- NIF$=" 
Dezimal-Oktal" 
:G$="D - ":H$= 
"Oktal-Bınaer" 
I$="F — ":J$=" 
Oktal-Dezimal" 
:K$="G - ":L$= 
"Binaer-Oktal" 
M$="H -— "IN$=" 
Biınaer-Dezımal 
";0$="N - ":P$ 
="Basıszahlen" 
T$="2Z2 - "3U$=" 
Zah lene ıngabe" 
IF X=2THEN 128 
PRINT "Taste " 
a$;B$:PRINT C 
$;D$:PRINT E$;5 
F$:PRINT G$;H$ 
:PRINT 1$; J$: 
PRINT K$;L$ 
PRINT M$;N$: 
PRINT 0$;P$: 
PRINT T$;U$: 
END 

LPRINT :CSIZE 
2:COLOR B: 
GOSUB 148: 
LPRINT " "3S$: 
GOSUB 14B: 
LPRINT :LPRINT 
n$;B$:GOSUB 15 
D:LPRINT C$;D$ 


1382: 


142: 
152: 


160: 
17B: 
188: 
198: 
222: 
212: 


22B: 
232: 


240: 
25B: 
26B: 
27B: 
28B: 
29B: 


388: 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT M$;N$: 
LPRINT :LPRINT 
DO$;P$:LPRINT T 
$;U$:LF 3:END 
LPRINT "XXXXXX 
KKKKKKKKKKKK": 
RETURN 

LPRINT "------ 
RETURN 
"A":B=1B:A=2: 
COTO 288 
"S":B=19:A=8: 
GOTO 288 
"D";B=B:A=2: 
GOTO 288 
"F"3;B=8:A=1B: 
GOTDO 288 
"G":B=2:N=8: 
GOTD 288 
"H":B=2:A=1B: 
GOTO 288 

"N": INPUT "Bas 
ıs Eingabe = " 
;B 

IF CcB<2>OR (B> 
1RADOR (CB-INT B 
<>BD>THEN 22B 
INPUT "Basıs A 
usgabe = ";A 
IF cA<ZIOR (A> 
1B)OR (A-INT A 
<>B)THEN 248 
IF A=BTHEN 248 
IF B=BTHEN 228 
IF X=1PRINT P$ 
ı': Eın"5B;"7A 
us";A:END 

Y$=" "; IF A=18 
LET Y$="" 

x$=" ":1IF B=1B 
LET X$="" 


E$;F$: 
G$;H$: 
1$;5 J$: 
K$;L$: 


31B: 


33B: 
34B: 


35B: 


36P: 
37B: 


38B: 


39B: 


4D2: 


412: 


422: 


43B: 


448: 


1 Basisprogramme 


LF 2:LPRINT P$ 
"2 "ZLPRINT "E 


ıngabe = ";B: 
LPRINT "Ausgab 
e = ";R:LF |]: 
END 

"Z": INPUT "Zah 
Iı= "5E 

IF E=BLET G=2B: 
GOTD 422 


IF CE<B)OR (E> 
lE1IB-1)0R (E- 
INT E<>B)THEN 
338 
H=B:6b=d:F=E 
F=F/1B: 1=1BXCF 
-INT F):F=INT 
F:1IF I>=BTHEN 
33B 

J=BrH: G=1XJ+6G: 
H=H+1: IF FTHEN 
37B 

H=LOG G/LOG PR: 
H=1NT H:F=Ar1B 
:IF G>=FTHEN 3 
3B 

F=6:6=8:FOR 1= 
HTO RSTEP -1 
J=ArI:K=F/J:K= 
INT K:G=1BXG+K 
: F=F-KXJ: NEXT 
l 


IF X=1PRINT "Z 
CB; ")="jE;" 
erg ıbt ":PRINT 
"ZC"3A;")=")G 
END 

LPRINT :LPRINT 
"ZC"3B;") "IX$ 
USING "HHRHHH 
HHHHR" SE: GOSUB 
158: USING 
LPRINT "ZC"39A; 
") ."3YV$; USING 
"HHRRRHHHRRE" 
G:USING :END 
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Während des Programmablaufs erfolgt eine Zuverlässigkeitsüberprüfung der eingegebenen 
Zahl nicht nur auf ihre Zugehörigkeit zum vorgegebenen Zahlensystem (die Zahl 3 ge- 
hört nicht zum Dualsystem), sondern auch auf ihre Gesamtgröße (Ziffernanzahl, Länge) 
im Hinblick auf eine 10-ziffrige Darstellbarkeit (Ausdruck). 

Irrtümliche Eingaben bewirken keine Fehleranzeige, sondern führen zu einer erneuten 
Eingabe zurück. 

Für Umwandlungen zwischen Zahlensystemen wurden besondere Starttasten mit auto- 
matischer Festlegung der Basiszahlen eingerichtet; ebenso aber ist auch die individuelle 
Anwahl der beiden Basiszahlen möglich. Ein Betrieb ist mit oder ohne Drucker möglich. 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "ZUMW' (ENTER) starten. 

2. Bei Anzeige des Hinweises “Anzeige 1/Druck 2 (ENTER) _’ über die weitere Fort- 
setzung entscheiden: 

2.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 3 fortsetzen. 
2.2. Druck: 2 (ENTER) drücken und bei Punkt 10 fortsetzen. 

Bei Eingabe anderer Zahlen als 1 und 2 verbleibt das Programm bei Anzeige des be- 
schriebenen Entscheidungshinweises. 

3. Der Reihe nach werden nun mit (ENTER) die einzelnen Eingabe- und Verarbeitungs- 
hinweise in Übereinstimmung mit dem im Testbeispiel ausgedruckten Programmver- 
lauf angezeigt. Darauf verlöscht die Anzeige, und das Bereitschaftssymbol weist auf 
Wahlmöglichkeiten hin. 

4. Anwahl einer der 6 Fixumwandlungen mit (DEF) A, S,D, F, G oder H bzw. N für 
eine individuelle Eingabe von Basiszahlen. Im Fall der ersten 6 Anwahlmöglichkeiten 
wird bei Punkt 7 fortgesetzt. 

5. Bei Anzeige ‘Basis Eingabe = _'' beliebige zwischen einschließlich 2 und 10 gelegene 
ganze Zahl eintasten und (ENTER) drücken; unzulässige Eingaben führen zum Ver- 
bleiben bei der beschriebenen Anzeige. 

6. Bei Anzeige ''Basis Ausgabe = _' beliebige zwischen einschließlich 2 und 10 gelegene 
ganze Zahl eintasten und (ENTER) drücken; unzulässige Eingaben führen auch hier 
zum Verbleiben bei der beschriebenen Anzeige. 

7. Kontrollanzeige der gewählten Basiszahlen mit (ENTER) löschen; das Bereitschafts- 
symbol zeigt sich in der verlöschten Anzeige. 

8. Eingabe einer umzuwandelnden Zahl mit (DEF) Z anwählen. 

9. Bei Anzeige "Zahl = _’ eine zwischen einschließlich der Grenzen O und 9999999999 
gelegene ganze Zahl eintasten und (ENTER) drücken. Unzulässige Eingaben führen zum 
Verbleiben der beschriebenen Anzeige. Die angezeigte Eingabe '’Z (a) = NNNNNN” 
wird durch Betätigung von (ENTER) gelöscht, um das Ergebnis in der Form "Z(b) = 
= NNNNNNN” abzurufen. Nach nochmaliger Betätigung der (ENTER)-Taste ver- 
löscht die Anzeige, und das Bereitschaftssymbol wird angezeigt; weitere Verarbeitun- 
gen können ab den Punkten 1, 4 oder 8 aufgenommen werden. 

10. Ausgabe eines Titeltextes und einer kurzen Verarbeitungsanleitung; die Anzeige ver- 
löscht und das Bereitschaftssymbol erscheint. 
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11. Anwahl der Basiszahlen in Übereinstimmung mit den Punkten 4 bis 6 vornehmen; 
die angewählten Basiszahlen werden zur Kontrolle ausgedruckt. 

12. Das gleiche gilt auch für die Eingabe einer umzuwandelnden Zahl analog der Punkte 8 
und 9; eingegebene und umgewandelte Zahlen werden mit Angabe der jeweiligen 
Basiszahl ausgedruckt. 

Weitere Verarbeitungen können ab den Punkten 1, 4 oder 8 aufgenommen werden. 

Die ersten vier Testbeispiele sind paarweise zu betrachten, da ein Beispiel jeweils die Um- 

kehrung des nächstfolgenden darstellt. Im Fall der Eingabebasis 10 und der Ausgabebasis 

7 wurden drei Umwandlungen hintereinander abgewickelt. 

Nachzutragen wäre ein kleines Detail zur Umwandlung einer Dezimalzahl in die Zahl eines 

anderen Systems. Diese Umwandlung basiert auf folgendem Verarbeitungsvorgang: 

1. Schritt: Zahl Z, durch b”' teilen, ganzzahliger Teil des Quotienten ist z,. 

2. Rest aus vorangegangener Division bildet den Dividenden der nächsten Division; 
Divisor ist nun b”"?. Der ganzzahlige Teil des Quotienten ist z, - 1. 

3. Es wird nun so lange in der beschriebenen Weise fortgesetzt, bis der letzte Rest die 
Ziffer zı ergeben hat. 


KKKKKKKKKKKKKKKKHKK 

Zah lenumwand |ung 

KKKKKKKKKKKKKKKKKK 

CDEF) Verarbe ıtung Bas ıiszahlen: Bas iszahlen: 

mern men Eıngabe = 8 Eingabe = 18 

A - Dezimal-Biınaer Ausgabe = 2 Ausgabe = 8 

S - Dezimal-Oktal 

D - Oktal-Bınaer 

F - Oktal-Dezimal zC 89 1762 ZC 18) 27845 

G - Binaer-Oktal == ---------------- 07474 - 

H - Bınaer-Dezımal 26 2) 1111118018 2 8 66385 

N - Basıszahlen 

2 - Zahlene ıngabe Basıiszahlen: Basıszahlen: 
Eıngabe = 2 Eingabe = 8 
Ausgobe = 8 Ausgabe = 1B 

Bas ıszahlen: 

Eingabe = 1B 

Aussabe = ? aa ee 9 00285 
28 1762 2 1 27845 

2C 18) 1%) 

zZ >) D 

2C 108) y, Beispiele zu 1.10 Zahlenumwandlung 

£C 18 

2C 18) 175 
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2 Spiel und Hobby 


Einer der ältesten und auch der natürlichsten Triebe des Menschen ist der Spieltrieb. Dazu 
kommt noch, daß ein Lernerfolg dann am größten ist, wenn das Wissen auf spielerische 
Weise erworben wird. Daher darf in einer Programmsammlung für den PC-1500 auch diese 
Sparte nicht fehlen. 


Dabei erkennen wir, daß — von den beiden ersten echten Spielprogrammen abgesehen — 
auch ein Programm aus diesem Bereich seinen Einsatz in praktischen Anwendungen findet. 
Die Datumsrückrechnung ist beispielsweise dann unerläßlich, wenn man von einem fixen 
Datum aus die Laufzeit eines Vertrages in Tagen bestimmen will bzw. aus der Laufzeit 
das genaue Ablaufdatum, ohne im Kalender nachzusehen, feststellen muß. Laufzeiten 
in Tagen finden wir vorrangig bei Kreditverträgen, bei deren Verwaltung eine Datums- 
rückrechnung von großem Vorteil ist. 


Auch der zum Teil weniger ernst genommene Einfluß der Geburt eines Menschen auf 
seinen weiteren Lebensweg in Form des bekannten Bio-Rhythmus ist für den, der an diese 
Einflüsse glaubt, eine in diesem Fall zwar subjektive, aber dennoch praktische Anwen- 
dung, aus der wir abweichend von vielen ähnlichen Programmen einen Teil zur Berech- 
nung der besonderen und kritischen Tage herausgearbeitet haben. 


2.1 LOGO-Ratespiel 


Im Mikrocomputer-Jahrbuch 1984 (Vieweg Verlag) findet sich eine Version dieses Spiels 
für den PC-1211/1212. Aufgrund der für den PC-1500 gegebenen Möglichkeiten kann 
dieses Spielproblem in anderer Weise noch besser gelöst werden; diese Programmversion 
ist mit und ohne Drucker lauffähig. 


Das Spiel selbst wurde dem PARKER-Spiel 611 1088 nachempfunden und von einem 
Spiel zweier Partner in ein Spiel eines Spielers gegen den Rechner PC-1500 umgebaut. Das 
Ziel des Spiels besteht darin, die Lage eines aus 4 oder 5 Atomen bestehenden Moleküls 
in einem 8 X 8 Kästchen umfassenden Spielfeld mit möglichst wenigen Versuchen zu er- 
raten. Im Spiel eines Spielers gegen den Computer übernimmt der Rechner immer den 
Part des vorgebenden Spielers und setzt die 4 bzw. 5 Atome mit Hilfe des Zufallszahlen- 
generators. 


Der ratende Spieler sendet von einem um das Feld angeordneten Balken, deren Kästchen 
beginnend von links unten entgegen dem Uhrzeigersinn von 1 bis 32 durchnumeriert 
sind, einen Strahl in das Feld ab. Ebenfalls von links unten beginnend sind die Kästchen 
dieses Feldes zeilenweise nach oben von 1 bis 64 nummeriert; siehe dazu die Abbildung 
des Spielfeldes. 
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[2423| 22121 |20] 10]18] 17; 


Ps7TseTss[5o[sıez]es[5x 
Kassolsı|s2]s2 [sr as]ss 
a [ezfas[as [as Jasfaras 
EIEJESESEZEIENEN 
EIESEZEIEIEIENEN 
KRICIEIESENEIEIEN 
ehefm re hsafisfie 
TPERRBEPER 


ıla2lslels[ si le 


Aufgrund des Verlaufs, den ein Strahl auf seinem Weg durch das Feld nimmt, kann auf 
die Lage der einzelnen Atome geschlossen werden. Für den Spielablauf sind drei Varian- 
ten kennzeichnend: 

1. Strahl tritt an anderer Stelle aus (2 Punkte) 









ala 
N | @ 





Diese Möglichkeit wird anhand von zwei Strahlenverläufen demonstriert. Während im 
ersten Fall keine Ablenkung eintritt und der Strahl an der gegenüberliegenden Seite das 
Feld wieder verläßt, wird im zweiten Fall ein Strahl aufgrund eines Atoms, das in einem 
zum Strahlenweg angrenzenden Feld liegt, abgelenkt. Es ist sowohl eine Rechtsablenkung, 
die im Bild dargestellt ist, als auch eine Linksablenkung möglich. 






HERNE 
a a EB I a a a 
EEE ENE 


gerader Durchgang 





abgelenkter Durchgang 


2. Der Strahl wird reflektiert (1 Punkt) 


Der Strahl tritt an der gleichen Stelle aus, von der aus er abgeschickt wurde. Die Reflexion 
ist nichts anderes als eine Umlenkung um 180 Grad. Zwei Atome liegen genau in der 
gleichen Höhe links bzw. rechts vom Strahlenverlauf. Der Normalfall ist links im Bild 
dargestellt. Als Sonderfall gilt die Umlenkung durch ein links oder rechts vom Strahlen- 
eintritt gelegenes Atom am Feldrand, wie im zweiten Beispiel dargestellt. Es ist noch hin- 
zuzufügen, daß vor dieser als Normalfall geschilderten Atomlage durchaus bereits eine 
Strahlenumlenkung nach links oder rechts erfolgt sein kann. 





Normalfall Sonderfall 


2.1 LOGO-Ratespiel 47 


3. Der Strahl wird absorbiert (T Punkt) 


Auf dem Weg durch das Atomgitter kann ein Strahl auch verschluckt werden; dazu muß 
sich auf dem Strahlenweg ein Atom befinden. Auch in diesem Fall kann der Strahl vor 
dem direkten Auftreffen auf ein Atom bereits ein- oder mehrmals umgelenkt worden sein. 
Daß heißt, daß neben dem im Bild dargestellten einmal abgelenkten Strahlenverlauf ein 
Auftreffen auch ohne vorherige Ablenkung möglich ist. 





Strahlenverlauf mit Umlenkung 


Wenn man nun meint, genügend Strahlen abgeschickt zu haben, werden die vermuteten 
Positionen der einzelnen Atome eingegeben. Falsch geratene Positionen werden mit zu- 
sätzlichen 5 Punkten bewertet. 


Die Lage des Moleküls sollte mit möglichst wenig Punkten erraten werden. 


18: "LOGO": CLEAR : B6B:LPRINT "XXXKKXX 158: INPUT X 
Ss$=" Logo-Rate XKKKKKKKKKKKK": 17B:CLS :WAIT : IF 
spiel ";T$="xx RETURN (X<1)DR (X>32) 
XXX":PRINT T$; 7B:LPRINT "------ OR (X-1INT X<>B 
S$; T$:RANDOM : mm "; >THEN 158B 
DIM ACS>, RC32) RETURN 175: IF RCXD=1THEN 
28:KZ=1: INPUT "An BB: "A": N=4: INPUT 152 
ze ıge 1’Druck "Atome (4,5) = 188: F=X:GOSUB 128: 
2CENTER)";3KZ: "SN:IF (CN<4) R(X)=1:P=1:7=] 
IF CKZ<1DOR (K OR (CN>S5S)OR (N- :GOTD (S+19)X1 
Z>2>DOR (KZ-INT INT N<>B)THEN r 
KZ<>B)THEN 28 8D 198:0=1+Y:60SUB 51 
328:1IF KZ=1PRINT " 9B:RANDOM : FOR ]= 2:GOTD 238 
CDEF>A: Atompo ITO N 288: 0=8+8XY: GOSUB 
sıtıonen!: 1BB: F=RND 64: GOSUB 529:GOTO 232 
PRINT "(DEF>S: 44B: IF K=1THEN 218:0=64-Y:GOSUB 5 
Spielstart": 128 38:GOTO 238 
END 11B:AC])=F:NEXT 1: 228: 0=57-8%XY: GOSUB 
aB:CSIZE 2:COLOR BEEP N:PRINT " S54B 
B:LF 2:GOSUB 6 CDEF>S: Spiels 238: L=B:R=B:F=0: 
B:LPRINT "x"3S tart":END GOSUB 44B: IF K 
$;"xX":GOSUB 68 128:S=INT (C(CF-1)78 =1THEN 498 
:LF 1:LPRINT " I): Y=F-1-8XS:T= 248: 1F Y=BTHEN 27B 
DEF Spielzug”: T+1:RETURN 258: F=0-0:60SUB 44 
GOSUB 78 138: "S":T=B:FOR ]= B: IF K=1LET L= 
SB:LPRINT "A - At ıTO 32 l 
ompos ıt ionen": 14B:RCI)=B:NEXT 1: 268: 1F Y=7THEN 288 
LPRINT " se IF KZ=2LF 2: 27B:; F=0+0: 6G0SUB 44 
tzen":LPRINT " LPRINT "Eingab B: IF K=1ILET R= 
S - Spielstart en":GOSUB ?B 1 
";GOSUB ?7B:LF 15B: "X": X=B:WAIT 1 288: IF P=1I]IF L=l 
4: END :PRINT "Strahl THEN 47B 


(1-32) ="; 


48 


298 


3BB: 
31ß: 


32P: 
338: 


34B: 
352: 
36B: 
37B: 
380: 
39P: 
40: 
412: 


42p: 


43BD: 
440: 
45ßp: 


46ß: 


:IF P=1IF R=l 
THEN 47B 
IF L=11IF R=l 
THEN 47DB 
IF L=BTHEN 348 
IF S=BLET S=4 
H=Y: Y=9-2: Z=H+ 
1:S=S-1:60T0 3 
7B 
IF R=BTHEN 388 
IF S=3LET S=-1 
H=2: 2=8-\Y: Y=H- 
2:5=S+] 
0=0-V:H=(S+5]) 
X12:GOSUB H 
0=-0+V:2=Z2+]1;P= 
R: IF VIF O<=6G 
THEN 238 
IF UTHEN 418 
IF O>=GTHEN 23 
2 
0=0-1V:5=S+2: IF 
SY3LET S=S-4 
F=BXCSt1)-Y: 
GOSUB 12B:RCF) 
=1:BEEP 3:X%$=" 
---2": IF KZ=l 
PRINT X;X%$; F: 
GOTO 56B 
LPRINT X%;X%$;F: 
GOTO 568 
K=B:FOR J=1TO 


N 
IF F=ACJ)ILET K 
=] 
NEXT J: RETURN 


47D: 


480: 


49B: 


S2ßB: 
S1B: 
522: 
33B: 


54ß: 
5s5ß: 


56B: 


57B: 
58B: 


585: 
59B: 


6PB: 
61P: 


Programmlisting 2.1 LOGO-Ratespiel 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "LOGO“ (ENTER) starten. 
2. Kontrollanzeige ''***** Logo-Ratespiel *****’' mit (ENTER) löschen. 


BEEP 2:X$=" re 
flektıiert": IF 
KZ=1PRINT X; X$ 
:GOTDO 568 
LPRINT X;X%$: 
GOTO 56B 
BEEP 1:X$=" ab 
sorbiert":IF K 
Z=1IPRINT X%;X%$: 
GOTO 568 
LPRINT X%35X$: 
GOTO 568 
Q=1:V=8:6G0TD 5 
58 
0=8: V=-1:GOTDO 
55B 
=-]1:U=-8:G0TO 
55B 
0=-8:V=] 
G=0+(8-ZIXU: 
RETURN 
INPUT "Spielen 
de? Ja 1CENTER 
)"5H:GOTD 588 
GOTD 158 
IF KZ=2LF 2: 
LPRINT "Moegl. 
Positionen": 
GOSUB ?7B 
FOR 1=1TD0 N 
F=B:WAIT 1: 
PRINT "Atom (1 
-64) = "; 
INPUT F 
ECLS :WAIT : IF 
(F<1DOR (F>64) 


62: 
632: 


642: 
65B: 


66P: 
67P: 


68PB: 
B69P: 


7BD: 
?1B: 


7208: 


?73B: 
748: 
75B: 


76B: 
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OR (F-INT F<>B 
»THEN 598 
GOSUB 44B: IF K 
=1 THEN 648 
BEEP 1:%$=" fa 
Isch": T=T+5: 
GOTOD 652 

BEEP 3:X$=" rı 
cht ıg" 

IF KZ=1PRINT F 
ıX$:GOTO 67B 
LPRINT F3X$ 
NEXT I:IF KZ=2 
THEN 72B 

WAIT 158:PRINT 
"Atome:"; 

FOR 1=1TD N 
PRINT At]; 
NEXT 1:CLS : 


WAIT PRINT "E 
rgebnıs";T;5" P 
unkte":END 


LF 2:LPRINT "T 
ats. Positione 
n":GOSUB ?7B 
FOR 1=1T0 N 
LPRINT ACID; 
NEXT I:LPRINT 
";LF 2: 
LPRINT "Abrech 
nung":GOSUB ?7B 
LPRINT "Sıe ha 
ben":LPRINT T; 
" Punkte erzie 
It":GOSUB ?B: 
LF 4:END 


3. Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _' über die weitere Fortsetzung entschei- 
den: 


3.1. 


3.2. 


Anzeige: 1 (ENTER) oder nur (ENTER) drücken. Es werden die beiden Ver- 


arbeitungshinweise, die auch aus dem Ausdruckbeispiel abgelesen werden kön- 
nen, jeweils nach Betätigung der Taste (ENTER) angezeigt. Nach der letzten 
Anzeige erscheint das Bereitschaftssymbol. 


Druck: 2 (ENTER) drücken; Ausdruck eines Verarbeitungstitels und einer 


kurzen Verarbeitungsanleitung, worauf die Anzeige verlöscht und das Bereit- 
schaftssymbol angezeigt wird. 


2.1 
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4. Spiel mit (DEF) A starten. 


10. 


11. 


Bei Anzeige "Atome (4,5) = _” nur die Zahl 4 oder 5 eintasten und (ENTER) drük- 
ken. Unzulässige Eingaben führen zur beschriebenen Anzeige zurück. Die 4 bzw. 5 
Positionen werden im Rechner erzeugt und die Beendigung dieser Erzeugung mit 4 
bzw. 5 Piepstönen angezeigt. Mit der Anzeige "'(DEF) S: Spielstart”, die mit(ENTER) 
gelöscht werden kann, wird auf die weitere Fortsetzung im Spiel hingewiesen. 


. Spiel mit (DEF) S starten. 
. Bei Anzeige "Strahl (1-32) = ?" zwischen einschließlich 1 und 32 gelegene ganze 


Zahl eintasten und (ENTER) drücken. Unzulässige Eingaben sowie bereits von 
Strahlenein- bzw. Austritten in Anspruch genommene Randfelder führen zum Ver- 
bleiben bei der beschriebenen Anzeige. Der Erfolg (siehe Beispiel) wird je nach Spiel- 
betrieb angezeigt oder ausgedruckt. 


. Bei Anzeige "Spielende? ja 1 (ENTER) _’ über die weitere Fortsetzung entscheiden: 


8.1. Weitere Strahlen abschicken: (ENTER) ohne vorangehende Zahleneingabe 
drücken und nächste Eingabe bei Punkt 7 vornehmen. 


8.2. Strahlenbeschuß beenden: Beliebige Zahl eintasten und (ENTER) drücken. 


. Bei Anzeige "Atom (1-64) = _”' so lange vermutete Atompositionen eingeben und 


(ENTER) drücken, als Atome angewählt wurden. Zur Kontrolle wird die eingegebene 
Atomnummer mit dem Zusatztext ‘richtig’ oder ‘'falsch’’ gekennzeichnet angezeigt 
bzw. ausgedruckt. 

Nach Eingabe der letzten Atomposition und Ausgabe der Eingabekontrolle werden 
die tatsächlichen Positionen selbsttätig angezeigt bzw. ausgedruckt. In beiden Fällen 
verlöscht die Anzeige und das Bereitschaftssymbol erscheint. 


Ein weiteres Spiel kann ab Punkt 1 oder 4 auf genommen werden. 


Im Testbeispiel lagen die Atome recht günstig, so daß mit wenigen Rateversuchen sämt- 
liche Positionen festgestellt werden konnten. 


Für den Spielbetrieb zeichnet man sich am besten ein Spielfeld wie einleitend dargestellt 


und 


vervielfältigt es je nach Bedarf. 


KKKKKIKKKKKKKIKTRK 
X Logo-Ratespiel *% 
KKKKKKKKKKKKKKTKKK 


DEF Spie!lzug 

A - Atomposıtıonen 
setzen 

S - Spielstart 


—— (mn ben vum Ge GE Gme Gem min Gum Deus GEEE GEB GEB GEEn min ums Gum 


5 reflektiert 
4 ---) 2 

293 obsorbiert 
13 absorbiert 
14 ---> 18 
22 ---> 25 


Moegli. Postionen 
6 richtig 

25 rıcht ig 

293 rıcht ig 

52 rıchtıg 

54 rıcht ıg 


Beispiel zu 2.1 LOGO-Ratespiel 


Tats. Positionen 


„um Sm GER Gum su Gum Guns dumme Gen GEnE dumm Gin Guum Amm gem Gum dm rum 


23 6 54 25 32 


Abrechnung 


-—— um dumm (pe Gum ren Gum. guiin une DEE Aeiee uuie Gmimb Gramm Gum Gem Gum 


Sıe haben 
9 Punkte erziıeıt 


Sum Am> ommn GeEE Gumm Mens dem ib diem Amen Hemib Auf graie Gemn are Gm Sun Gum 
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2.2 DART — Der goldene Schuß 


In diesem Spiel kommt es darauf an, auf eine fiktive Zielscheibe zu schießen und mög- 
lichst viele Punkte zu machen, die aber nicht allein nach den tatsächlich erzielten Treffern 
vergeben werden. An einer kurz angezeigten 10-stelligen Zahl muß festgestellt werden, ob 
in den Positionen 3, 5 oder 8 die Ziffer 5 steht. Erst in diesem Fall sollte ein Schuß abge- 
geben werden; andernfalls führt ein Versuch zu einer Fehleranzeige. Während eines etwa 
9 Sekunden angezeigten Texthinweises kann ein Schuß abgegeben werden; je nach der 
Zeitdauer wird ein unterschiedliches Trefferergebnis erzielt. Man wird es nach einiger 
Übung bald zu recht hohen Punkteergebnissen bringen. Punktzu- bzw. -abrechnungen 


ergeben sich bei den folgenden Situationen: 


1. Jede angezeigte Zahl: — 1 Punkt 

2. Fehlschuß: — 5 Punkte 

3. Treffer: + Punkte nach Anzeige 
4. “zu hoch“ bzw. "zu tief” Ö Punkte. 


In jedem Spiel können 5 Schüsse abgegeben werden; die Anzahl der angezeigten Zahlen ist 
nicht beschränkt und kann auch nicht beeinflußt werden. 
Das Spiel kann mit oder ohne Drucker gespielt werden. Trefferhinweise und Endergebnis 
werden je nach Betriebsart angezeigt oder ausgedruckt. 


12: 


"DART": CLEAR : 
S$="Der golden 


ee ",T$="Schuss 


Schiessen": 
GOSUB 8B:WAIT 
:LF 4:END 


118 


168: IF D$="S"THEN 


188 


"ZWAIT 128: >B:LPRINT "XXXXXX 17B:WAIT 1B8:PRINT 
PRINT "xxx "3S KKKKKIKKKIKK": "Schuss abgebe 
$;T$;" XKK": RETURN n: S druecken" 
RANDOM 8B:LPRINT "------ <WAIT :D$="2Z": 
2B:K=1:1INPUT "Anz .  memumueeenoon "; GOTO 148 
eıge 1/Druck 2 RETURN 188: %$=STR$ X:A$= 
CENTER>";K:TF 92: "a": IF K=2LF 2 MID$ (X$, 3, 1): 
(CK<1)OR (K>2) :LPRINT "Neues B$=MIND$ (X$, 5; 
OR (K-INT K<>B Sp ie I"; GOSUB ID:C$=MID$ CX$ 
»THEN 28 8D ‚8, 1):WAIT 222 
32: IF K=2CSIZE 2: 1BQ:RANDOM :P=B: :IF K=2LF 1 
COLOR B:CGOTO 5 FOR R=1TO 5 198: IF cA$="5")JOR 
2 118:WAIT 1B2B: PRINT (B$="5")OR (C$ 
4B:PRINT "Spiel s "Zıffer 5 ın P ="5")THEN 2182 
tarten: (DEF) ns. 3, 5, 87": 288: P=P-5:F$=" F 
A"S;PRINT "Schu P=P-] eh lanze ıge': 
ss abgeben: S" 128:X=RND (IEI18-1) GOTO 398 
:WAIT :END »IF INT LOG X< 21B:ND=1E4XCS-2Z):G$ 
SB:LF 2:60SUB ?B: >93THEN 12B =" (---------- 
LPRINT S$;T$: 138:WAIT 1RQ: PRINT " 
GOSUB ?R:LF 1: "KKKKKOÖON INT 228: IF D>=8LET F$= 
LPRINT "Tasten XXKKK":D$="Z" " zu tief": 
Spielzug": :Z=TIME GOTO 398 
GOSUB 88 148:D$=INKEY$ :;S= 238: IF N<=1ILET F$= 
6B:LPRINT "CDEFDA TIME :IF S-2Z>. " zu hoch": 
Starten": BBBSLET D$="E" GOTO 398 
LPRINT " S I5SB: IF D$="E"THEN 24B: IF D=S2LET Q=12 


2.2 DART 


51 


:GOTO 3BB 33B:LPRINT " 6" TAB 5:LPRINT 6 
258: IF D=3LET Q=2: «IF D=?7LF -]1: $ 
GOTO 328 TAB 5:LPRINT G 388:C0T0O 412 
268: IF N=4LET Q=8B: $ 398: IF K=1PRINT R; 
GOTO 388 348B:LPRINT " 12" "„Schuss: "jF$ 
27B: IF ND=SLET Q=>4: IF D=2LF -1: :GOTO 419 
GOTO 322 TAB 5:LPRINT G 428:LPRINT R;".Sch 
288: IF D=6LET Q=12 $ uss: "SLPRINT 
:GOTO 3BB 358: LPRINT " 18" F$ 
298: 0=6 IF D=6LF -1: a]lB:NEXT R:IF K=1 
322: P=P+Q:1F K=] TAB 5:LPRINT 6 PRINT "Ergebni 


31: 


32B: 


WAIT 1RB: PRINT 
R;",Schuss:";0Q 
:6$:G0OTO 412 
LPRINT R;".Sch 
uUss:" 


$ 


36B:LPRINT " 8" 


:IF D=4LF -1: 
TAB S:LPRINT 6 
$ 


4202: 


s:";P;" Punkte 
"SWAIT :END 

LF 1:G0OSUB 82: 
LPRINT "Ergebn 


IS; "spz;" Pkt! 
:GOSUB 8B:LF 4 
:WAIT END 


37B:LPRINT " 2" 
:IF D=3LF -1: 


LPRINT " a 
IF D=SLF -1]: 
TAB S5:LPRINT G 
$ 


Programmlisting 2.2 DART — Der goldene Schuß 


Bedienungsanleitung 


1. 
2. 


Programm mit RUN (ENTER) oder RUN "DART” (ENTER) starten. 


Kontrollanzeige “Der goldene Schuß‘, anschließend die Anzeige “Anzeige 1/Druck 2 

(ENTER) _“, die über die weitere Fortsetzung entschieden wird: 

2.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken, worauf zwei Verarbeitungs- 
hinweise analog zum Beispielausdruck selbsttätig angezeigt werden und die An- 
zeige bis auf das Bereitschaftssymbol verlöscht. 

2.2. Druck: 2 (ENTER) drücken, worauf nach einem Titeltext eine kurze Spielan- 
leitung ausgedruckt wird. 

In beiden Fällen Spiel mit (DEF) A starten; in der Betriebsart Druck wird der Text 

“Neues Spiel’’ ausgegeben. 

Das Spiel selbst wird nun wie folgt abgewickelt: Der Hinweis ‘Ziffer 5 in Pos. 3, 5, 

8?’ wird kurzzeitig angezeigt, um auf die Stellung der Ziffer 5 für eine Treffermög- 

lichkeit hinzuweisen. 

Daraufhin wird eine 10-stellige Zahl kurzzeitig angezeigt. 

Während der Textanzeige “Schuß abgeben: S drücken‘ ist dann die Taste S zu 

drücken, wenn in den angegebenen Ziffernpositionen von links gerechnet die Ziffer 5 

vorliegt. Wird während der etwa 9 Sekunden dauernden Anzeige des Texthinweises 

kein Schuß abgegeben, geht das Programm zu Punkt 4 zurück. 

Ein abgegebener Schuß führt zu folgenden Ergebnisausgaben, die im Fall des Drucks 

bei einem Zahlentreffer die gesamte Zielscheibe, bei Anzeige jedoch nur der Treffer- 

pfeil ausgegeben wird: 

Zahl 2, 4, 6, 8, 10 oder 12 mit Pfeil 

zu hoch 

zu tief 

Fehlanzeige . 


Zifferntreffer: 
Treffer zu hoch: 
Treffer zu tief: 
Fehlschuß: 
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Wurden noch nicht 5 Schüsse abgegeben, kehrt das Programm auch in diesem Fall zu 
Punkt 4 zurück. 


8. Nach Abgabe des 5. Schusses wird das erzielte Gesamtergebnis in Punkten angezeigt 
bzw. ausgedruckt; die Anzeige verlöscht bis auf das Bereitschaftssymbol. 

9. Ein neues Spiel kann ab Punkt 1 oder 3 aufgenommen werden. 

Da auch mit Punktabzügen gearbeitet wird, kann das Endergebnis auch negativ sein. 


KKIKKKKKKKKKKKKKKKK 1.Schuss: 3,Schuss: 
Der soldene Schuss 4 a 
KKKKKKKKKKKKKKKKKK 6 6 
12 <£<----------- 12 
Tasten Spielzug 12 1B <----------- 
222200000007 8 8 
(DEF)A Starten 2 2 
S Schiessen 
mem 2.Schuss: 4.Schuss: 
e Feh lanze ı9e 
12 5.Schuss: 
18 zu hoch 
Neues Spiel 8 C----------- 
ee ee ee 2 2-22 2-__._ on 


Beispiel zu 2.2 DART- Dergoldene Schu N TTTmTTTTnnnnnannnn 


2.3 Gedankenleser PC-1500 


Zu diesem Programm werden bewußt keine Erläuterungen des Verfahrens gegeben, um 
den Leser zum Erkennen der diesem Spiel innewohnenden Systematik anzuregen. Bei 
einigem Nachdenken werden vor allem in der Mathematik Bewanderte die vorliegende 
Nuß knacken; aber auch alle anderen in der Datenverarbeitung Tätige sollten dazu in der 
Lage sein. Im folgenden sollen zumindest einige Hinweise gegeben werden, um Sie auf die 
richtige Spur zu führen. 

Der Spielzweck liegt darin begründet, daß eine Person in einem größeren Kreis aufge- 
fordert wird, sich eine Zahl zwischen 1 und 64 zu merken. Dann tritt der Rechner in Ak- 
tion und bietet 6 Zahlengruppen an. Es muß festgestellt werden, ob die gedachte Zahl in 
dieser Gruppe vertreten ist. Je nachdem, ob mit ja oder nein geantwortet wird, ist es dem 
Rechner mit der Angabe von nur 6 Zahlengruppen möglich, auf die gedachte Zahl zu 
schließen. 

Obwohl man ohne Drucker spielen sollte, kann das Spiel auch mit angeschlossenem 
Drucker betrieben werden. Die Präsentation einer Zahlengruppe ist im Fall des ange- 
schlossenen Druckers natürlich einfacher; bei Betrieb über die Anzeige muß eine Gruppe 
in 4 Teilen ausgegeben und auf die jeweils nächste nach etwa 10 Sekunden automatisch 
weitergeschaltet werden. Die Ausgabe der vom Spieler angemerkten Zahl wird beim 
Computerausdruck rot sein. 


2.3 Gedankenleser PC-1500 


12: 


2B: 


3B: 


40: 


5p: 


60: 


?B 


80: 
92: 
188: 
11B: 
115: 
120: 


132: 


140: 


152: 


16P: 


172: 


"ZRAT":PRINT " 
X Gedankenlese 
nr  PC-15BB *": 
CLEAR :DIM R(6 
) 


KZ=1: INPUT "An 
zeıge 1/Druck 
2CENTER)";SKZ 
IF CKZ<1DOR (K 
Z>2)OR (KZ-INT 
KZ<>B)ITHEN 28 
IF KZ=1WAIT 32 
QB:PRINT "Zahl 
zw. 1 und 64 m 
erken!":CGOTO ? 
2 

CSIZE 2:COLOR 
B:LF 1:G0OSUB 2 
IB:LPRINT "PC- 
1588 den Gedan 
- ken auf der 
Spur":GOSUB 21 
D 


LPRINT "Eıne Z 
ohl zwischen! 
und 64 merken! 


PAUSE "Der PC- 
ISBB lıest Ged 
onken'!': RANDOM 
:FOR 1=1T0 6 
A=RND 6:N=B: 
FOR J=1TO 6 

IF RCJI=SALET N 
=] 

NEXT J: IF N=] 
THEN 88 
RCI>=A:NEXT 1: 
T=]1:FOR 1=1T0 
6 

IF KZ=2LPRINT 
GOSUB (R(]1D+2]1 
»X18 

IF KZ=2LPRINT 
"Ihre Zahl dab 
ei?" 

Z=1:1NPUT "Zah 
I? Ja 1/neın 2 
CENTER»>":Z 

IF C2<1)3OR (CZ2> 
2»OR CZ2-INT Z<S 
>B)>THEN 148 

IF Z=1LET T=T+ 
ZrCREII-)D 
NEXT 1I:IF KZ=] 
PRINT "Sıe hab 
en X"5T;5" X 9e 


188: 


222: 


223: 


224: 


232: 


233: 


:WAIT 


raten!":GOTO 1 
92 

LF 12LPRINT "S 
ıe haben dıe Z 
ahIxXX XX 9e 
raten'!":LF -1: 
COLOR 3:TAB 2: 
LPRINT T:COLOR 
B:LF 4 

: INPUT "W 
eıter? neın ]( 
ENTER)"3Z:END 


:FOR 1=1T0 6 
:RCID=SB: NEXT 1: 
GOTO 48 
:LPRINT "XXXXXX 
KKKKKKKKKKKK": 
RETURN 

: IF KZ=2THEN 22 
3 

PRINT ' 2 4 


BE 8 1R 12 14 
I6":PRINT "18 
28 22 24 26 28 
38 32" 
PRINT '34 36 3 
8 4B 42 44 46 
a8": PRINT "SB 
32 54 56 58 68 
62 64": RETURN 
LPRINT" 2 4 
6 818 12] 
a 16 18 2B 22 
24 26 28 38 32 
34 36" 
LPRINT " 38 48 
a2 44 46 48 5 
Ba 52 54 56 58 
68 62 64": 
RETURN 


IF KZ=2THEN 23 


3 


SPRINT "3 4 


? 8111215 
I6"SPRINT "19 
28 23 24 27 28 
31 32" 
PRINT "35 36 3 
9 .4nD 43 44 4) 
ag": PRINT "S] 
52 55 56 59 68 
63 64": RETURN 
LPRINT " 3 4 
> 81112] 
3 16 19 28 23 
24 27 28 31 32 
35 36" 


234: 


248: 


24]: 


242: 


243: 


244: 


2508: 


251 


253: 


254: 


260: 


261 


262: 


53 


LPRINT " 39 4B 
a3 44a 42 485 
\ 532 55 56 59 
68 63 64": 
RETURN 
IF KZ2=2THEN 24 
3 
PRINT"5 6 
?.813 14 15 
16": PRINT "21 
22 23 24 29 382 
31 32" 
PRINT "37 38 3 
9 48 45 46 47 
ag"; PRINT "53 
34 55 56 61 62 
63 64": RETURN 
LPRINT" 5 6 
> 81314] 
3 16 21 22 23 
24 23 38 31 32 
37 38" 
LPRINT " 39 48 
a5 46 47 48 5 
3 54 55 56 61 
62 63 64": 
RETURN 
IF KZ=2THEN 25 
3 


:PRINT " 9 12 1] 


112 13 14 15 

I6":PRINT "25 

26 27 28 29 382 
31 32" 


:PRINT "41 42 4 


3 44 45 46 4? 
ag"; PRINT "5? 
38 59 68 61 62 
63 64": RETURN 
LPRINT " 9 18 
ıl ı2 1314] 
3 16 25 26 27 
28 29 38 31 32 
al 42" 
LPRINT " 43 44 
45 46 47 48 5 
7 58 59 68 6] 
62 63 64": 
RETURN 
IF KZ=2THEN 26 
3 


SPRINT "17 18 1 


9 28 21 22 23 


24"sPRINT "25 
26 27 28 23 38 
31 32" 


PRINT "49 58 5 
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ı 52 53 54 55 62 63 64": 58 59 68 61 62 
56":PRINT "57 RETURN 63 64' :RETURN 
58 59 68 61 62 278: IF KZ=2THEN 27 273:LPRINT " 33 34 

63 64": RETURN 3 35 36 37 38 3 

263:LPRINT " 17 18 271:PRINT "33 34 3 3 48 al 42 43 

19 28 21 22 2 5 36 37 38 39 a4 45 46 47 48 
3 24 25 26 27? 48": PRINT "41 a3 Sa" 
28 29 38 31 32 a2 43 44 45 46 274:LPRINT " 51 52 
a9 58" a> gg" 53 54 55 565 
264:LPRINT " 51 52 272:PRINT "49 58 5 7 58 59 68 6] 
53 54 55 56 5 ı 52 53 54 55 62 63 64": 
> 58 59 68 61 S6":PRINT "5? RETURN 


Programmlisting 2.3 Gedankenleser PC-1500 


Bedienungsanleitung 


1. 
2. 
3. 


Spiel mit RUN (ENTER) oder RUN "ZRAT“ (ENTER) starten. 

Kontrollanzeige "+ Gedankenleser PC-150® +‘ mit (ENTER) löschen. 

Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _ über die weitere Fortsetzung ent- 
scheiden: 

3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 4 fortsetzen. 
3.2. Druck: 2(ENTER) drücken und bei Punkt 7 fortsetzen. 


. Bei Anzeige "Zahl bzw. 1 und 64 merken!’’ muß man sich eine Zahl denken. Auto- 


matisch wird auf den Texthinweis ‘'Der PC-150® liest Gedanken‘’ kurzzeitig weiter- 
geschaltet und dann werden die 6 Zahlengruppen in je 4 Teilen zu 8 Zahlen etwa 
jeweils 5 Sekunden angezeigt. Die Reihenfolge der Zahlengruppenanzeige wechselt 
dabei von Spiel zu Spiel. 


. Sind alle 32 Zahlen einer Gruppe angezeigt, wird bei Anzeige von ‘Zahl? ja 1/nein 2 


(ENTER) _‘ über die weitere Fortsetzung entschieden: 

5.1. Zahl dabei: 1 (ENTER) oder nur (ENTER) 

5.2. Zahl nicht dabei: 2 (ENTER) drücken. 

In beiden Fällen wird zur Anzeige der nächsten ebenfalls 32 Zahlen umfassenden 
Gruppe weitergeschaltet, solange noch nicht alle 6 Gruppen angezeigt sind. 


. Sind alle 6 Gruppen angezeigt wird das Ergebnis — die geratene Zahl — in der Form 


"Sie haben * NN * geraten!’ angezeigt und dann automatisch zur Anzeige “Weiter? 

nein 1 (ENTER) _' weitergeschaltet und über die weitere Fortsetzung entschieden: 

6.1. Spiel fortsetzen: (ENTER) ohne vorangehende Zahleneingabe drücken und bei 
Punkt 4 die nächste Runde aufnehmen. 

6.2. Spiel beenden: Beliebige Zahl eintasten und (ENTER) drücken, worauf die An- 
zeige bis auf das Bereitschaftssymbol verlöscht. In diesem Fall kann ein neues 
Spiel nur ab Punkt 1 aufgenommen werden. 


. Ausdruck eines einleitenden Textes ''PC-150@ den Gedanken auf der Spur‘ und 


“Eine Zahl zwischen 1 und 64 merken!‘. Nach kurzzeitiger Anzeige des Texthin- 
weises ''Der PC-158® liest Gedanken” erfolgt der Ausdruck einer 32 Zahlen umfassen- 
den Zahlengruppe, und der Frage "Ihre Zahl dabei?‘ 


2.4 Datumrückrechnung b5 


8. Bei Anzeige ‘Zahl? ja 1/nein 2 (ENTER) _‘ über die weitere Fortsetzung entschei- 
den: 
8.1. Zahl dabei: 1 (ENTER) oder nur (ENTER) drücken. 
8.2. Zahl nicht dabei: 2 (ENTER) drücken. 
In beiden Fällen wird die nächste Zahlengruppe ausgedruckt, solange noch nicht alle 
6 Gruppen ausgegeben sind. 
9. Das Endergebnis wird in der Form "Sie haben die Zahl *«* NN ** geraten!’’ ausge- 
geben, wobei die Zahl NN selbst rot ausgedruckt wird. 
10. Über die weitere Fortsetzung des Spiels wird analog zu Punkt 6 entschieden. 
Zum Beispielausdruck braucht kein weiterer Kommentar angefügt zu werden; man wird 
aber annehmen können, daß Sie dem Geheimnis dieses Ratevorgangs bereits auf der Spur 
sind! 


KKKKKKKKKKKKRKKKKKK 
PC-1588 den Gedan- 
ken auf der Spur 
KKKKKKKKIKKKKKKHKK 
Eıne Zahl zwischen 

1 und 64 merken! 


9 18 11 12 13 14 33 34 35 36 37 38 5 6 >? 813014 
15 16 25 26 27 28 39 48 41 42 43 44 15 16 21 22 23 24 
29 38 31 32 41 42 45 46 47 48 49 58 29 38 31 32 37 38 
43 44 45 46 47 48 51 52 53 54 55 56 39 48 45 46 47 48 
57 58 59 68 61 62 57 58 59 68 61 62 33 54 55 56 61 62 
63 64 63 64 63 64 

Ihre Zahl dabeı”? Ihre Zahl dabeı? Ihre Zahl dabei? 

3 4 7 81112 2 46 812 112 17 18 19 28 21 22 
15 16 19 28 23 24 14 16 18 28 22 24 23 24 25 26 2? 28 
27 28 31 32 35 36 26 28 38 32 34 36 29 38 31 32 49 58 
39 48 43 44 47 48 38 4B 42 44 46 48 31 52 53 54 55 56 
51 52 55 56 59 68 s8 52 54 56 58 6B 37 58 59 68 61 62 
63 64 62 64 63 64 
Ihre Zah! dabe ı? Ihre Zah! dabe ı? Ihre Zahl dabei? 

Beispiel zu 2.3 Gedankenleser PC-1500 Sie haben die Zahl 


XX 28 XX oeraten! 


2.4 Datumrückrechnung 


Die Aufgabe, ein Kalenderdatum und den Wochentag zu berechnen, ist nicht nur eine 
Spielerei, sondern muß auch aus dem Blickwinkel einer praxisnahen Anwendung gesehen 
werden. Bei Verträgen gibt es mitunter die Vorgabe einer Laufzeit (Gültigkeit) in Tagen, 
vor allem bei Kreditverträgen. So sei beispielsweise ein Datum ermittelt, welches 200 Tage 
nach Vertragsabschluß liegt. Dabei treten zwei Probleme auf, die in diesem Programm ge- 
trennt berechnet werden: 


© Berechnung eines sogenannten Faktors; das ist jene Anzahl von Tagen, die von einem 
bestimmten Stichtag zum gesuchten Datum führt. 


56 2 Spiel und Hobby 


© Rückrechnung eines Datums aus einem Faktor wie zuvor beschrieben einschließlich 
der Bestimmung des jeweiligen Wochentages. 
Die erste Berechnung ist für das Start- und die zweite für das Enddatum durchzuführen. 
Der Stichtag, auf den derartige Berechnungen bezogen werden, kann verschieden gewählt 
werden. Wir beziehen uns hier auf den 1. Januar des Jahres O nach unserer Zeitrechnung. 
Der Formelmechanismus dieser Lösung ist sehr umfangreich und kann im Rahmen einer 
Programmdiskussion nicht beschrieben werden. Leser, die sich für die Lösungstheorie 
interessieren, seien auf das Buch „Praktische Problemanalyse‘’ (Reihe CHIP WISSEN, 
Vogel-Buchverlag Würzburg) verwiesen. 
In diesem Programm sind für die Eingabe eines Datums eine Reihe von Plausiblitätskon- 
trollen eingerichtet, um irrtümliche Eingaben von Tages- oder Monatszahlen zu vermeiden. 
Dabei wird das jeweilige Enddatum eines Kalendermonats, das nicht überschritten werden 
darf, kalendergerecht berechnet. Das Programm orientiert sich am derzeit gültigen gre- 
gorianischen Kalender und nimmt nur Daten ab dem 1.1.1582 an. 


Dieses Programm kann sowohl mit, als auch ohne Drucker betrieben werden. 


18: "FADA"ZCLEAR : RETURN 1 
A$="Datum - Fa 82: "D": PRINT "XXX 185:60T0 288 
ktor":B$="KXXX Datumrueckrec 198:M=1INT C(CR-6B-S 
"rcg=" 5; hnung XXX": IF )73B.6+3.9142: 
PRINT B$;C$;N$ Z=2LPRINT "Dat T=R-31X(M-1)+ 
:C$;B$:4=14689 umrueckrechnun INT (.4%M+2.3) 
> 9":GOSUB 68 -G 
20:2=1: INPUT "Anz 9B:PRINT "Faktor 288:G0OSUB 41B:1F 2 
eıge 1-/Druck 2 = "5 =160SUB 42B: 
CENTER>";ZEIF 1BB: INPUT F GOTO 228 
C2<1>OR (Z>2) 112:CLS :IF cF-INT 21IR:LF 1:GOSUB 44B 
OR (CZ-INT Z<>D F<>B)OR (CF<S5?? : GOSUB ?B: 
ATHEN 28 814) THEN 98 GOSUB 438 
32:B=36524;:C=146] 128: J=]1:;R=F-366: 1I= 228: INPUT "Weiter? 
:D=365: E=488:G EXINT (CR/AI:R= Ja I1<CENTERD"; 
=1RBB:H=4: IF Z= R-IXN/E: J=J +]: N:GOTO 98 
IPRINT "Datum I=GXINT (R/BD: 238:G0T0 3982 
CDEF>D/Faktor R=R-1IXB/G: J=J-+ 248: "F":PRINT "XXX 
CDEFDF"SEND I Faktorenermit 
aB: CSIZE 2:COLOR 132: I=HX INT (CR/CD: tlung KK": IF 
B:L_F 1:GOSUB 6 R=R-IXC7H: J= Jr Z=2LPRINT "Fak 
RB:LPRINT "X "5; I: 1I=INT <R/DD: torenermittlun 
A$;" x", GOSUB IF I>3LET I=1- 9":6G0OSUB 68 
BB:LF 1:LPRINT l 258:PRINT "Dat TT. 
"DEF Verarbe ıt 148: R=R-1XD+1: J=J+ MM.JJJI="; 
ung": GOSUB ?D 1:S5=B: IF J7H- 26B: INPUT K$ 
SB:LPRINT 'D - Da INT CI /HI=SBLET 270:CLS :T$=LEFT$ 
tum": LPRINT "F S=l CK$, 2): T=UVAL T 
- Faktor": ı15B: IF J7G-INT (CJ/ $:M$=MIND$ CK$, 
GOSUB ?B:LF 4: G)<>RTHEN 17B 4, 2):M=VUAL M$: 
END 168: IF J/E-INT (J/ J$=RIGHT$ (K$, 
6B:LPRINT "'XXXXXX E)<>BLET S=B 4): J=UAL J$:S= 
KXKKKKKKKKKXK": 178: IF R>SI+STHEN 1% 
RETURN 198 288: IF J7H-INT (J/ 
>B:LPRINT "------ 188:M=1:T=R: IF R>3 H)=RLET S=l 


nunmenneneu w: ILET M=2:T=R-3 298: IF J/G-INT (J/ 


2.4 Datumrückrechnung 


3BDB: 


31B: 


3202: 


33B: 


342: 


Programmlisting 2.3 Datumrückrechnung 


G)<>BIHEN 312 
IF J/E-INT (J/ 
EI<>DBLET S=D 
L=3B: IF M=2LET 
L=28+S:60T0 33 
2 

N=3XINT (CcM-)DD 
+73+M-1:1IF N/2 
-INT (N/2)=B 
LET L=31 

IF CT>L>IOR (CM 
DDR (M>12)0OR 
J<1S82IPRINT 
"Datum falsch! 
":GOTO 252 
F=-]INT (.axM-+2 
„33: 1=J:1TF M<= 
2LET F=B:1=J-] 


Bedienungsanleitung 


5.1.1. 
5.1.2. 
5.1.3. 
5.1.4. 


338 


36P: 


3?7B: 


38P: 


392. 
apR: 
aıln: 


;EF=F+T+31XCM-1) 


+DXJ +INT CI/H) 
-]NT C.?75%XCINT 
1/G)+1))2: 
GOSUB 41 

IF Z=16G0SUB 42 
9:COTUÜ 388 

LF 1:6G0SUB 439 
:GOSUB ?B: 
GOSUB 442 
INPUT "Weiter? 
aa lCENTER)"; 

N: GOTO 258 

IF Z=2LF 4 

END 

F$=STIR$ F:T$= 

STR$ T:M$=STR$ 

M: J$=STR$ J: 


Berechnung eines Datums aus einem Faktor: 
(DEF) D drücken. 
Kontrollanzeige ''*** Datumrueckrechnung ***"" mit (ENTER) löschen. 
Bei Anzeige “Faktor = “ (ENTER) drücken. 

Bei Anzeige ‘Faktor = ?'' Faktor ganzzahlig und größer 577813 


420: 


a3ßB: 


440: 


458 


a6B: 


a>n 
a8ßn 
a9n 
>BB 
1 


(31.12.1581) eingeben und (ENTER) drücken. 


5.1.5. 


(ENTER) löschen. 


5.1.6. 
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GOSUB CCF-CINT 
(F/7IX7))+A5)X 
ID: RETURN 
PRINT W$5)", 3 
T$, 7.73 M$, "75 
J$; /F = "ır$: 
RETURN 
LFRINT W$;5", 
TE, "3 M$, "N" 
; J$:RETURN 
LPRINT "Faktor 
="; FILRETURN 
W$="Sa": RETURN 


W$="So'"; RETURN 
W$="Mo" RETURN 
WE="D: "RETURN 
WE="M,; "RETURN 
W$="Do"; RETURN 
WE="Fr"s RETURN 


Programm mit RUN (ENTER) oder RUN "FADA' (ENTER) starten. 
Kontrollanzeige "'**** Datum — Faktor ****" mit (ENTER) löschen. 
Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _" über die weitere Fortsetzung entschei- 
den: 


3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 4 fortsetzen. 


3.2. Druck: 2 (ENTER) drücken und bei Punkt 6 fortsetzen. 
Kontrollanzeige Datum (DEF) D/Faktor (DEF) F’' mit (ENTER) löschen. 
Anwahl der Verarbeitung: 

5.1. 


Ergebnisanzeige, z.B. ‘Mo, 24.12.1984/F = 724999 bei Bedarf mit 


Bei Anzeige "Weiter? ja 1 (ENTER) _" über die weitere Fortsetzung 
entscheiden: 


5.1.6.1. Verarbeitung fortsetzen: Beliebige Zahl eintasten und (ENTER) 


drücken und bei Punkt 5.1.3. fortsetzen. 


5.1.6.2. Verarbeitung abbrechen: (ENTER) ohne vorangehende Zahlen- 


5.2. Berechnung eines Faktors aus einem Datum: 


5.2.1. 


(DEF) F drücken. 


eingabe drücken; die Anzeige verlöscht bis auf das Bereit- 
schaftssymbol. 


5.2.2. Kontrollanzeige ‘'*** Faktorenermittlung ***‘' mit (ENTER) löschen. 
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6.2.3. Bei Anzeige “Dat TT.MM.JJJ = " (ENTER) drücken. 

5.2.4. Bei Anzeige “Dat TT.MM.JJJ = ?” Datum in der angegebenen Form ein- 
tasten und (ENTER) drücken. Es ist dabei darauf zu achten, daß bei 
Tages- und Monatszahlen vorlaufende Nullen mit eingetastet werden. 
Das Datum 2.3.1984 ist daher in der Form ''02.03.1984°' einzugeben. 
Irrtümliche Eingaben von Elementen des Datums werden mit der Fehler- 
anzeige "Datum falsch!’ beantwortet. Fehlerhinweis mit (ENTER) 
löschen und Datumeingabe wiederholen. 

5.2.5. Ergebnisanzeige analog zu Punkt 5.1.5 im Bedarfsfall mit (ENTER) 


löschen. 


5.2.6. Über die weitere Fortsetzung ist analog zu Punkt 5.1.6 zu entscheiden. 


6. Bei Betrieb eines Druckers ist grundsätzlich in Übereinstimmung mit den Anweisun- 
gen zu Punkt 5 zu verfahren. Die Ausgaben werden durch Ausdrucke ersetzt, die im 


übrigen anhand des Testbeispiels studiert werden können. 


Der Unterschied in der Ausgabe zwischen Anzeige und Druck besteht darin, daß bei Be- 
trieb eines Druckers zusätzlich ein die Verarbeitung einleitender Text ausgegeben wird. 
Eine kurze Verarbeitungsanleitung wird aber in beiden Fällen präsentiert. 


KKIKKKKKAKKKKKKKKKK 
X Dotum - Faktor * 
KKKKKKKKKKKKKKKKKK 


DEF Verarbe ıtung 


m m wm en mu mm a mm wu me ee u rn mm mm u 


D - Datum 


Em um mm 0 un er Tu Gr m wm gu wm En uam au BE mm an 


Datumrueckrechnung 
KXKKKKKKKKKKKRKTKRK 
Faktor = 58438? 


Fr, 31.12.1599 


Faktor = 584388 


Do Tun mm ann um mm mu wm gun gm wie me Tue mm mm mm wre 


— | un mm m en HE m mm um Seen ame Men mume Geb ame men am 


m | | mn sum dm Gun Gm Tun mn mn gar FE ri a Su me 


Do, 1.3.1988 


Faktor = 724699 


Te ee 


em 0m wu wm um um Gum ee gua Aanm wm ame mie wm ame wm am arme 


Do, 1.3.1984 


Faktor = 7249399 


— | nn m u mn rn m A mn mn A m Are gm m me 


Mo, 24.12.1984 


KKKKKKKKKKKKKKKKKK 
X Datum - Faktor X 
KXKKKKKKKKIKKKKKKEX 


DEF Verarbe ı tung 


“un mm mer Bun Dur ee mem BEE mm We.0 are Meme wmm au wmm Arm aus ma 


Beispiele zu 2.3 Datumrückrechnung 


Faktorenermitt lung 
KKKKKKKKKKKKKKKKTK 


Fr, 31.12.1593 


—— Ami mn ame Arme mn BE gu Are Gene Tui aan Tuer AMD Anm Anm Guam DEE 


Faktor = 584387 


rn me mm Hmm Meer ge AM wm BED gun ME mm am an mm TE um Ge 


Faktor = 694819 


Do, 1.3.1988 


zu 1m dem (ie wur DER GEEn au AED wie men amm gun gun rn wenn GE a 


Cum mm di aim Mt Der Mimn um Gem ME (em GIB gain ginn Amen mean Guaie 


Faktor = ?7247BD 


no, 1.3.1984 


u m ann mm use mems Hume gene Are mm Mei men rn HE mm A Hmm ae 


Faktor = 724>B] 


Mo, 24.12.1984 


km mm une Ti un wu A mu um bee m mn m nn m en ann 


Faktor = 7249399 
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2.5 Bemerkenswerte Bio-Tage 


Kenner verschiedener Biorhythmusprogramme werden möglicherweise die im folgenden 
Programm eingearbeiteten Details nicht kennen. Es gibt eine Vielzahl von Programmen, 
die sich mit dem Biorhythmus beschäftigen. Das vorliegende jedoch geht über die in üb- 
lichen Programmen angebotenen Berechnungen hinaus und berechnet die bemerkens- 
werten Bio-Tage eines Jahres. 

Bevor wir uns kurz mit dem Begriff ""bemerkenswerte Biotage’' beschäftigen, wollen wir 
einen kurzen Hinweis auf die Theorie des Biorhythmus für alle jene geben, die sich unter 
Biorhythmus nichts vorstellen können: 

Die verschiedenen Stimmungen und Zustände eines Menschen nehmen einen sinusför- 
migen Verlauf. Diese rhythmischen Schwankungen werden durch einen bestimmten Be- 
reich charakterisiert und vom Geburtsdatum beeinflußt. Die Ausschläge dieser Kurven 
schwanken zwischen den Werten + 1 und - 1. Die Berechnung des Ausschlags a für einen 
bestimmten Kalendertag kann mit Hilfe folgender Formel vorgenommen werden: 


(28 seit Geburt 7) 
amsın Periodenlänge in Tagen / 


Die Periodenlängen für die drei Bereiche werden von den Fachleuten so angegeben: 


© körperlicher Zyklus: 23 Tage ; 
© gefühlsbezogener Zyklus: 28 Tage; 
© geistiger Zyklus: 33 Tage; 


Damit tatsächliche auf eine Person zutreffende Prognosen gewagt werden können, müßten 
individuelle Zyklen bekannt sein, die mit der zuvor angeschriebenen Größe sicherlich in 
allen Fällen den tatsächlichen Gegebenheiten besser Rechnung tragen. 


Als besondere Bio-Tage werden nun jene Tage bezeichnet, für die der Verlauf von zwei 
oder allen drei Kurven Besonderheiten aufweisen: 


e 2 oder alle 3 Kurven durchstoßen die x-Achse des 2-achsigen kartesischen Koordinaten- 
systems zum gleichen Zeitpunkt: Diese Tage nennen wir 2- oder 3fach kritische Tage. 

© 2 oder alle 3 Kurven erreichen gemeinsam einen Extremwert (+ 1 oder — 1): Derartige 
Tage bezeichnen wir als 2- oder 3fach besondere Tage, wohl ahnend, daß die kritischen 
Tage offensichtlich größere Bedeutung haben. 


Die Theorie der Bestimmung dieser Tage bzw. die Ableitung der notwendigen Rechen- 
formeln kann hier nicht diskutiert werden. Wir müssen uns mit Hinweisen zu den durch 
das vorliegende Programm gegebenen Möglichkeiten begnügen: 


1. Das Programm gilt für den Zeitraum von 1901 bis 2099. 

2. Unzulässige Eingaben (falsche Tages-, Monats- bzw. Jahreszahlen) werden abgewiesen. 

3. Eine Jahreszahl, für die die bemerkenswerten Tage zu berechnen sind, ist auch dann 
ungültig, wenn sie zwischen den in Punkt 1 angegebenen Grenzen, aber vor dem Ge- 
burtsjahr liegt. 


Die Berechnung der besonderen und der kritischen Tage eines Jahres ist jeweils gesondert 
anzuwählen. Im Beispielteil haben wir die Berechnungen für ein und dasselbe Datum ge- 
wählt. Während für die besonderen Tage immer nur ein Termin angegeben wird, kenn- 
zeichnen einen kritischen Tag immer zwei Termine; das erste Datum ist der Tag vor dem 
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kritischen Tag. Dies mußte deswegen so gewählt werden, weil auf diese Weise auch ohne 
eine graphische Ausgabe der Kurven die Durchstoßrichtung der Sinuskurven durch die 
x-Achse abgelesen werden kann. Auf eine weitere Besonderheit muß an dieser Stelle auf- 
merksam gemacht werden: Im Fall der kritischen Tage um den 15.3./16.3. finden Sie keine 
0-Stellen angegeben; Sie erkennen aber, daß die körperliche und die geistige Schwankung 
aus dem positiven in den negativen Bereich wechselt. Es liegen also gleiche Durchstoßrich- 
tungen vor. Warum es nun nicht zum Ausdruck von O-Stellen kommt, hat seinen Grund 
darin, daß die Kombination aus körperlicher (23 Tage) und geistiger Periode (33 Tage) 
als Halbperiode die Zahl 379,5 ergibt. Gleiche Durchstoßpunkte ergeben sich in diesem 
Fall alle 379,5 Tage und gleiche Durchstoßpunkte mit gleichen Durchstoßrichtungen alle 
759 Tage. Die letzte Zahl ist das kleinste gemeinsame Vielfache der Zahlen 23 und 33! 
Wir haben gleichzeitig eine Anwendung für ein Programm, mit dem wir das kleinste ge- 
meinsame Vielfache und den größten gemeinsamen Teiler bestimmt haben! 

Im Programm berechnen wir auch den Wochentag der Geburt sowie die Wochentage sämt- 
licher bemerkenswerten Tage. Das Programm kann nur mit Drucker betrieben werden. 


10: 


28: 


3B: 


4D: 


38: 


6B: 


?B: 
80: 


92: 


"BIOB":CLEAR : 
CSIZE 2:CDLOR 
B:PRINT "2- un 
3 3-fach bes. 
Biotage'": 
LPRINT :GOSUB 
588 

LPRINT "Besoand 
ere Bıo-Tayge": 
GOSUB 522: 
LPRINT :LPRINT 
"DEF Verarbe ıt 
ung ":GOSUB 518 
LPRINT "G - Ge 
burtsdatum B 
- Besondere Ta 
geK - Kritisch 
e Tage":LF 3: 
END 

"G": INPUT "Geb 
.Datum TM.J="; 
H:F=INT (CH/1E2 
):G=INT CCH/IE 
2-FIXKIEZD:H=I]IE 
AXCH-INT H) 

IF CH=B)IOR CHA 
1981>0R (CH>289 
9)THEN 4B 
T=F:M=G: J=H: 
GOSUB 8B:E=L: 
GOSUB 128: IF T 
>=]1IF T<=IIF M 
>=11IF M<=12END 
GOTO 48 

S=B:1IF J74-I1NT 
(Jr4)=BLET S=l 
IT=J: IF M<=2LET 
1=J-1 


\BB: 


112: 
128: 


130: 


14B: 
15: 


16P: 


17B: 


182: 


L=T+31%CM-1)+3 
B6SXJ+INT (174) 
-INT C.7S5%CINT 
(Ir1E2ZI+1DI: IF 
M>ZLET L=L-INT 
(.4XM+2.3) 


RETURN 

IF M=2LET 1=28 
+S: RETURN 
L=CCM-1>+INT < 


(M-127/723)72:L= 
L-INT L:1=31: 
IF LLET 1=3B 
RETURN 
T=1:M=1:GOSUB 
8B8:C=L:0=L-E-1 
:FOR 1=21TD 26 
@CI>=D:NEXT I: 
RETURN 
R=KXCINT ((CO-B 
I/K))+E+B+K: IF 
0O-B<=BLET R=E+ 
B 

A=21:L=R: IF L> 
C+364.5+S 
RETURN 


IF @cCA>=L 


RETURN 


:IF @CA)I=BLET @ 


(AD=L:R=ER+K: 
GOTO 188 


:TIF L<@CADLET N 


=@lA):ACA)=SL:L 
=N 


:A=A+1l: IF A<=26 


THEN 288 


: RETURN 
:R=B-(INT (B’/?) 


*x73+241:G0T0 R 


241: 
242: 
243: 
244: 
245: 
246: 
2472: 
258: 


255: 


26B: 


280: 


292: 


388: 


R$="Sa": RETURN 
R$="So":RETURN 
R$="Mo": RETURN 
R$="D: "RETURN 
R$="Mi "RETURN 
R$="Do": RETURN 
R$="Fr": RETURN 
N=SIN (36BX(B- 
EI7K)I:L=SL+N 

IF N<DBLET N=N 
ABS NXINT < 

ABS (C1IEZXN)+.S 


Y/1E2 

USING "##.##": 
LPRINT R$; ".Am 
pl. = "}N 


USING :RETURN 


:"B":P=@: INPUT 


"Besondere Tag 
e, JJJJ="3J: IF 
CJ<HDOR <J<198 
1DOR (J>2B899) 
THEN 2?B 
GOSUB 158:N$=" 
Besd. Tage ": 
K=644:B=259: 
GOSUB 178:B=38 
3:G0OSUB 17R:K= 
759:B=38B5: 
COSUB 178 
B=454:G0SUB 17 
B8:K=924:B=3721: 
GOSUB 17R:B=55 
3:G0OSUB 17: 
GOTO 328 
"K"2P=1: INPUT 
"Kritische Tag 
e,5, JJIJI=S";JI: IF 
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CJ<HIOR CJ<198 
1>OR (J>28393) 


36B: 


B=INT cacCI)+.5 
)-P:FOR D=BTO 


452: 
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LPRINT :LPRINT 
"Bio-Datums": 


318:60SUB 158:N$=" 37B: GOSUB 248: 0=B- T3"."3M3 "."5A 
Krit. Tage ": C+rl: IF 0<>2 :GOSUB 518:L=2 


B=B:K=322: 
GOSUB 178:K=3) 
9.5:G0OSUB 172: 


38B: 


THEN 398 
T=31:M=12:A9=J- 
1:G0OTO 458 


46ß: 


K=23:R$="phys" 
:GOSUB 258:K=2 
B:R$="sens": 


K=462:G0SUB 17 398: IF 0<>366+S GOSUB 259:K=33 
2 THEN 412 R$="int |": 
32B: IF EIF 0+364+S 488: T=1:M=1:9=J+1: GOSUB 258 
THEN 348 GOTO 458 a>7B: N=L/3:R$="mitt 
338:G60T0 "G" a1B:A=J: IF 0O)59+S ":GOSUB 255: IF 
348:LPRINT :LPRINT THEN 44D PLET B=B+1 
D$; J:GOSUB 588 428: M=INT ((O-1)73 ABB: NEXT D:NEXT I 
:LPRINT "Gebur 13+1:T=0: IF M= a9B:LF 4:END 
tsdatum: ":B=E: 2LET T=0-31 SED: LPRINT "KKKKKK 
GOSUB 248: 438:G0TO 458 KKKKKKKKKKKK": 
LPRINT R$;", " 448:M=INT CCINT (0 RETURN 
ıF3"."36G3"."3H -6B-S) 7.386) 71 S1R:LPRINT "------ 
341:FOR 1=21T0 26 E2+3.B14):T=20- 50-02 ----.0.- " 
359: IF a@CI)=BTHEN 31% CM-1>3+INT C RETURN 
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. 4XM+2.32-5S 


Programmlisting 2.5 Besondere Bio-Tage 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN ‘'BIOB’' (ENTER) starten. 


2. Kontrollanzeige ''2- und 3fach bes. Biotage’’ mit (ENTER) löschen; es wird eine 
kurze Verarbeitungsanleitung in Übereinstimmung mit dem Testbeispiel ausgedruckt. 
Nach dem Programmvorlauf verlöscht die Anzeige bis auf das Bereitschaftssymbol. 

3. Eingabe des Geburtsdatums mit (DEF) G anwählen. 

4. Bei Anzeige "'Geb. Datum TM.J =" Geburtsdatum in der Form TTMM.JJJJ eintasten 
und (ENTER) drücken. Bei Vorliegen unzulässiger Tages-, Monats- oder Jahreszahlen 
wiederholt sich die Anzeige des zuvor beschriebenen Eingabehinweises. Wird die Ein- 
gabe angenommen, verlöscht die Anzeige bis auf das Bereitschaftssymbol. 

5. Berechnung und Ausgabe von bemerkenswerten Tagen: 

5.1. Kritische Tage: (DEF) K drücken. 
5.1.1. Bei Anzeige “Kritische Tage, JJJJ = _‘" gültige Jahreszahl eintasten und 

(ENTER) drücken. Die Betätigung von (ENTER) ohne vorangehende 

Zahleneingabe bewirkt die Anwahl des Geburtsjahres. 

Nach Ausdruck des Verarbeitungstitels und des Geburtsdatums werden 

die kritischen Tage berechnet und ausgegeben. Nach Beendigung des 

Ausdrucks erfolgt ein mehrfacher Zeilenvorschub zum bequemen Ab- 

trennen des Druckstreifens; worauf die Anzeige bis auf das Bereit- 

schaftssymbol verlöscht. Eine weitere Berechnung kann ab Punkt 1, 3 

oder 5 angewählt werden. 

5.2. Besondere Tage: (DEF) B drücken. 

5.2.1. Bei Anzeige "Besondere Tage, JJJJ = _‘’ gültige Jahreszahl eintasten und 
(ENTER) drücken. Die Betätigung von (ENTER) ohne vorangehende 
Zahleneingabe bewirkt die Anwahl des Geburtsjahres. 


5.1.2. 
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5.2.2. Nach Ausdruck eines Verarbeitungstitels und des Geburtstages werden 

die kritischen Tage berechnet und ausgegeben. Nach Beendigung des 

Ausdrucks erfolgt ein mehrfacher Zeilenvorschub zum bequemen Ab- 

trennen des Druckstreifens, worauf die Anzeige bis auf das Bereitschafts- 

symbol verlöscht. Weitere Berechnungen können ab den Punkten 1, 3 

oder 5 aufgenommen werden. 

Die Berechnung bemerkenswerter Tage vor Eingabe eines Geburtsdatums führt wegen des 
Fehlens eines solchen Datums zu keiner Verarbeitung; zur Unterstützung wird in diesem 
Fall sofort Punkt 4 der Bedienungsanleitung angesteuert, damit das fehlende Datum ein- 
gegeben werden kann. Wurde bereits ein solches Datum eingegeben und wird in Punkt 4 
(ENTER) ohne vorangehende Zahleneingabe betätigt, kommt es zur Eingabewiederholung 
des zuletzt eingespeicherten Geburtsdatums. 
Zusätzlich zu den Amplituden der drei Zyklen wird auch ein Mittelwert berechnet und 


ausgegeben; dies kann aus dem Testbeispiel abgelesen werden. 


XKKKKKKKKKKKKKKKKKK 
Besondere Bıo-Tage 
KKKKKKKKKKKKIKKKKRKK 


DEF Verarbe ı tung 
G - Geburtsdatum 
B - Besondere Tage 
K- Kritische Tage 


Besd. Tage 1984 
KKKKKKKKKKKKKKKKKK 
Geburtsdatum: 

So, 13. 6. 193? 


Bıoa-Datum: 
So; 1. 1. 1984 


“cn un um mul m mu FE mn gem ar gem HS gu me HE Ge GE am 


phys.Ampl. = 1.88 
sens.Ampl. = 1.80 
ınti.Ampl. = 1.88 
mitt.Ampl. = 1.08 
Bıo-Datum: 

So, 6. 5. 1984 
phys.Ampl. = -1.088 
sens.Ampl. = -1.BB 
ınti.Ampl. = B.3? 
mıtt.Ampl. = -B.54 


Bıo-Dat um: 
Ni, 29. 5. 1984 


“u 1 Sm Gr gm Sue Dun GE Are que Gem GEED mut Grid gm Giran Gun 


ohys.Ampl. = -1.BB 
sens.Ampl. = -B.43 
ntl.Ampl. = -1.88 
mitt.Ampl. = -8B.81 


Bıo-Datum: 
So, 1. 7. 1984 


.— mm mm gu Gun gms Geb HER m Gem Den GER Ge mund Arien Hmm Bu 


phys.Ampl. = 08.89 
sens.Ampl. = -1.88 
ıntl.Ampl. = -1.088 
miıtt.NAmp| = -9.372 


Krıt. Tage 1984 
KKKKKEKKKKKKKKKKKK 
Geburtsdatum: 

So; 13. 6. 193? 


Bıo-Dat um: 
Sa; 3. 3. 1984 


Um sum au Wii um Gm Tu ges Ge gun gr mm Ge GE Gun rn dm Gr 


phys.Ampl. = -B.2? 
sens.Ampl. = 8.22 
ıntl.Ampl. = DB.69 
mıtt.Ampl. = B.2] 


So, 4. 3. 1984 


em mn u mn gr die en um dt me Gen den HE Ge wen win a 


phus.Ampl. = B.PDB 
sens.Ampl. = 8.28 
ınti.Ampl. = B.8] 
mıtt.Ampl. = B.2? 


Bıo-Datum: 
Do, 15. 3. 1984 


0m m wm GE Gun gem Te (ea mE Tu See TE gu Ge me de Gr 


Fr, 16. 3. 1984 


sn 1m 1m gu dem Gum Gm mu Gum anED Umeb (isb Gum um Gum gun ws un 


phys.Ampl. = -B.14 
sens.Ampl. = -B.43 
ıntl.Ampl. = -B.1B 
mıtt.Ampl. = --8.22 


Sa, 31. 3. 1984 


“ui mm u dm gun (ab Hu Gr Ge Gent GmmD ma eb ums que gm que Geh 


phys.Ampl. = B.89 
sens.Ampl. = DB.22 
ınti.Ampl. = -8.19 
mitt.Ampl. = 8.31 


So, 1. 4. 1984 


Tun un Tune ER une Cm me TER urn deu et TER SM m de An de a 


phys.Ampl. = B.98 
sens.Ampl. = DB.DBDB 
ıntl.Ampl. = B.BDB 
mıtt.Ampl. = B.33 


Beispiele zu 2.5 _ Besondere Bio-Tage 
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3 Praktische Anwendungen 


Wir haben es an anderer Stelle bereits angedeutet: Mit der mehr oder minder willkürlichen 
Einordnung einzelner Programme in eines der 3 Kapitel sind die Programme, die in 
Kapitel 1 oder 2 eingereiht wurden, nicht von einer Anwendung in der Praxis ausgeschlos- 
sen und nicht (Kapitel 2) als reine Spielereien abzuqualifizieren. Auch das Spiel hat seine 
eigene Bedeutung und bedarf entsprechender Aufmerksamkeit in der Durchführung. 


Zwangsläufig nimmt aber Kapitel 3 den größten Raum ein, da wir für diesen Abschnitt 
Beispiele ausgewählt haben, die direkt der technischen oder kaufmännischen Praxis ent- 
nommen sind. 


Diese an sich recht kurzen Beispiele haben wie ja auch alle übrigen Programme den Vor- 
teil, daß mit ihrer Hilfe ein eigenständiges Problem gelöst werden kann, daß sie aber mit 
gewissen Anpassungen auch in umfangreichere Problemlösungen eingebaut werden 
können. 


Die Bemerkung „‚kurze Beispiele’ war aber nicht wörtlich zu nehmen, da einige Aufgaben 
doch recht umfangreich und, wie beispielsweise das Programm zur Durchführung und 
Auswertung von Zeitstudien, als richtige Knüller für die Praxis anzusprechen sind. Der 
Leser erhält in diesem Kapitel eine Reihe praxisnaher Problemlösungen angeboten, die 
die Leistungsfähigkeit kleiner Computersysteme unter Beweis stellen. 


3.1 Überhöhungen 


Wenn Bauteile, gleichgültig aus welchem Material hergestellt, für tragende Konstruktionen 
verwendet werden, kommt es durch das Eigengewicht und die Nutzlast zu Durchbiegun- 
gen, die um so größer werden, je größer der zu überspannende Raum zwischen den bei- 
den Auflagern wird. Aus optischen Gründen können diese Durchbiegungen als störend 
empfunden werden; um diesem Übel zu begegnen, werden solche Bauteile, vor allem 
wenn sie aus Stahlbeton hergestellt werden, sozusagen überhöht gefertigt. Die Unterlage, 
auf der ein solcher Betonbauteil produziert wird, muß daher in einigen Punkten von der 
geraden Linie abweichen und bildet einen Bogen. In der Mitte wird sich der Bauteil am 
stärksten durchbiegen, und gegen die beiden Auflager zu wird die Durchbiegung geringer. 
Genau um daß Maß der Durchbiegung wird nun die Unterlage des Modells nach oben ge- 
rückt, wie das im Bild zu sehen ist, wobei allerdings zufolge der Symmetrie nur eine 
Hälfte der Unterlage gezeichnet ist. 
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Im vorliegenden Programm wird in Abhängigkeit eines Punktes vom linken Auflager jenes 
Maß berechnet, um das die Unterlage bei deren Herstellung zu überhöhen ist. Wenn die 
Lage der Koordinatensystemachsen wie gezeichnet gewählt wird, können die einzelnen 
Punkte nach folgenden beiden Formeln berechnet werden: 


Kreisgleichung 
(x-p)?+(y-q)? =r?. für p=® und q=h-r, 


. I, 01€ 
wobei h die Überhöhung in der Mitte bedeutet, deren Wahl frei ist (etwa 100 bis 300)’ 
r den Radius und / die Länge des Bauteils, dann errechnet sich 


h"=h-r+vVr? sn. 


Parabelgleichung 
x?=-2:p-(y-h); für x=1/2 und y=® errechnet sich 
h„=h-(1-4 522/17). 


Bei sehr flachen Überhöhungen liegen beide Kurven annähernd gleich hoch; Unterschiede 
tauchen erst bei größer werdenden Verhältnissen h/l! vor allem im Auflagerbereich auf. 


Das Programm berechnet nur eine Hälfte der Punkte und auch nur die Punkte, die zwi- 
schen einem Auflager und der Mitte des Bauteils liegen. 


Das Programm ist so aufgebaut, daß nach der ersten von mehreren gleichartigen Verarbei- 
tungen der Programmvorlauf umgangen wird. Bei Änderungen der Art der verwendeten 
Gleichung — beide Möglichkeiten sind bei Bedarf anzuwählen — und bei Änderung der 
Wahl der Art der Ausgabe — das Programm kann mit, aber auch ohne Drucker gefahren 
werden — sollte aber von neuem gestartet werden. Eingestellt muß nur Länge und mittlere 
Überhöhung werden. Wenn Sie sich an das Beispiel 1.4 erinnern, haben wir für das Zeich- 
nen eines Kreises durch drei Punkte eine weitere überaus praktische Verwendung. 


Für Variantenrechnungen ist die Wiederholungsmöglichkeit unverändert bleibender Aus- 
gangswerte vorgesehen; dazu ist im Bedarfsfall nur die Ausführungstaste (ENTER) ohne 
vorangehende Zahleneingabe zu drücken. Die Anzahl der Zwischenpunkte ist anwähl- 
bar. 


3.1 Überhöhungen 


128 


Speicherorganisation 

A — Grundlinie / 

B -— Höheh 

C -— Anzahl Punkte 

D _ -— Formelkennzeichen 
E —-s 

F -h, 

G —- As, 

H — Radiusr 

KZ — Verarbeitungskennzeichen 
12: "UBER":CLEAR : 


228: 


3B: 


42: 


50: 


55; 
6P: 


?B: 


80: 
92: 


182: 


ı12 


Programmlisting 3.1 Überhöhungen 


S$=:"leberhoehu 
ngen";, T$="Kre ı 
s":U$="Parabe | 
"su$="Sehne " 
W$="Hoehe ":X%$ 
="Punkte'"':A$=" 
CDEFIG-":Y$="N 
euer Stort":/2$ 
=", Punkt": 
PRINT S$ 
KZ=1:- INPUT "An 
zeıge 1/Druck 
2CENTER)"SKZ 
IF CKZ<1DOR (K 
2>Z2D0OR (CKZ-INT 
KZ<>BITHEN 38 
IF KZ=2LPRINT 
:CSIZE 2:COLOR 
D:GOSUB 258: 
LPRINT " 3S$ 
: GUSURBR 25: 
LPRINT A$;YS: 
GOTO 68 
PRINT A$;Y$ 
INPUT "Kreıs ] 
-Parobe | 2CENT 
ER)"SD 
IF CcD<1DOR CD» 
2)OR (CD-INT DA 
>B)THEN 68 
"G"S INPUT 
ne s = "5A 
INPUT "Hoehe h 
= ":B 
INPUT "Punkte 
p = "IC 


"Seh 


:IF CC<1)OR CC- 


INT C<SDBODTHEN 
{Bd 


138 


160: 


t7B: 


18: 


192: 


288: 


mr - — 
| 


vmoz3z 
| 


INPUT "Dezımal 
end = "5N 
IF CN<B)IDOR (ND 
9IOR CN-INT N< 
>B)>THEN 128 


:O=1ArN: P=1RXC2 


P+NJ:L$=T$: IF 
D=2LET L$=U$ 


IF KZ=1PRINT L 


$: PRINT "s=";5A 
ı"/h="3B} "rp=" 
;C:G60T0 128 
GOSUB P:LPRINT 
:LPRINT V$;5A: 
LPRINT W$;B: 
GOSUB 2782: 
LPRINT X$;C: 
GOSUB 268: 
LPRINT LS: 
LPRINT :USING 
E=-A/2:6G=-E/ CC 
+1 )EH=CAXArAXB 
XB)/CBXB):K=1D 
xX(C21+rD):FOR I= 
TO C 
E=E+G:M=A/2+E: 
GOSUB K: IF KZ= 
IPRINT 15":3"5" 


_ 11 


s=";M:PRINT 1; 


"ts thzlse: 
GOTO 288 
LPRINT 1528: 
GOSUR P:LPRINT 
"os = "m 
LPRINT 'h = 
"sF 

USING :NEXT I: 
IF KZ=1END 


Index 
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Hilfsspeicher 
Sprungadresse 
Text "KREIS, "PARABEL 


I Sn 


Dezimalstellen 


1d0AN 


Sprungadresse für Zahlenformat 


:LPRINT 


:LPRINT 


LF 4:END 
J=ICHXH-EXEI:F 
=B-H+J:GOTO 24 
2 


:F=BXC1-4XEXE/ C 


AKA») 


F=INT CFX0+.5) 


-D:M=INT (MXO-+ 
. 5) 70: RETURN 
UXKEXKKKX 
KIKKKKKKRKKKK 
RETURN 


un mm mn u m nu nn ne nn re 


RETURN 


USING TERRHHHH 


HERR: RETURN 


288: USING "HHHHHHH 
4##.#" RETURN 
298: USING "SHHHHHH 
4#.##" RETURN 
388: USING "HHHHRHH 
#.###" RETURN 
318: USING "HRHRHHH 
HERR": RETURN 
328: USING "HHRHRHH,. 


HHHHH "RETURN 


338: USING "SHHHH.H 
HHHHR"SRETURN 
348: USING "HRRR. HR 
HHEEHR"SRETURN 
330: USING "HRR.HHH 
SHERHT:RETURN 
368:USING "ER. ERHH 
SHERHER": RETURN 
37B: USING "#.HHHH# 


HHHHR": RETURN 
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Bedienungsanleitung 


1. 
2. 
3. 


12. 


13. 


Programm mit RUN (ENTER) oder RUN "UBER“ (ENTER) starten. 
Kontrollanzeige ‘Ueberhoehungen” mit (ENTER) löschen. 

Beim Hinweis “Anzeige 1/Druck 2 (ENTER) _‘ Art der Eingabedokumentation und 
Ergebnisausgabe wählen: 

3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 4 fortsetzen. 
3.2. Druck: 2 (ENTER) drücken und bei Punkt 13 fortsetzen. 


. Arbeitsanleitung (DEF) G-Neuer Start‘ mit (ENTER) löschen. 
. Bei Anzeige “Kreis 1/Parabel 2 (ENTER) _‘' Form der Näherungskurve wählen: 


5.1. Kreisgleichung: 1 (ENTER) 
5.2. Parabelgleichung: 2 (ENTER) 


. Bei Anzeige “Sehne s = _'' Sehnenlänge (Länge des Bauteils) eintasten und (ENTER) 


drücken. Dieser Punkt ist für weitere Verarbeitungen unter den bisher gewählten 
Voraussetzungen direkt mit (DEF) G anwählbar. 


. Bei Anzeige “Hoehe h = _”" Überhöhung in der Bauteilmitte eintasten und (ENTER) 


drücken. 


. Bei Anzeige ‘Punkte p=_' Anzahl der Meßpunkte in einer Trägerhälfte ganzzahlig 


und größer O eintasten und (ENTER) drücken. 

Bei Anzeige ‘'Dezimalen d=_‘' Anzahl der Dezimalstellen, mit der die Eingabedoku- 
mentation und Ergebnisausgabe gewünscht werden, eintasten und (ENTER) drücken. 
Die Betätigung von (ENTER) ohne vorangehende Zahleneingabe bewirkt eine Ein- 
gabewiederholung, von Punkt 1 kommend die Anwahl von O Dezimalen. 


. Kontrollanzeige der gewählten Näherungsgleichung mit (ENTER) löschen. 
11. 


Eingabekontrollanzeige s, p und h bei Gutbefund mit (ENTER) löschen, andernfalls 
Neueingabe nach Anwahl (DEF) G ab Punkt 4 aufnehmen; bei Änderung der Nähe- 
rungsgleichung ist das Programm ab Punkt 1 neu zu starten. 

Ausgangswerte und Ergebnisse werden nun angezeigt, wobei jeder weitere Wert mit 
der Betätigung von (ENTER) abgerufen werden muß. Nach Abruf des letzten Er- 
gebnisses verlöscht die Anzeige bis auf das Bereitschaftssymbol. Eine neue Verarbei- 
tung kann ab Punkt 1 oder 6 angewählt werden. 

Nach Ausdruck eines die Verarbeitung einleitenden Textes ist auch im Fall des 
Druckers analog zu den Punkten 5 bis 12 vorzugehen, nur daß anstelle der Anzeigen 
Ausdrucke stehen. 


Im Testbeispiel wurden die gleichen Ausgangswerte für beide Näherungen verwendet. 
Bei näherem Hinsehen erkennen wir die größten Unterschiede in jenen Punkten, die dem 
Auflager näher als der Bauteilmitte sind. Wir erkennen aber auch aus den Beispielen, daß 
für eine Änderung in der Wahl der Näherungsgleichung ein neuer Programmstart erfolgen 
mußte, während die Verarbeitung neuer Ausgangswerte mit derselben Gleichung dies 
nicht erforderte. 
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IERPPRERRRRKKEKTKKKKK Sehne 2888.88 Sehne 2888.88 


leberhoehungen Hoehe 159.88 Hoehe 288.088 
KKKKKKEIKKIKKKKKKKK Punkte 4 Punkte a 
CDEF>G-Neuer Start -- mem mn TI 

Kreıs Parabe | 
1.Punkt 1.Punkt 
s = 2808.08 s = 288.88 
h = 54.78 h = 72.088 
2.Punkt 2.Punkt 
s = 408.0R s = 4028.00 
h = 96.77? h = 128.08 
3.Punkt 3.Punkt 
s = 628.088 s = 628.08 
h = 126.45 h = 168.088 
4,Punkt 4,.Punkt 
sa 820.PR s = 828.088 
h = 144.13 h= 192.088 
Sehne 2888.08 Sehne 2BRR.BB 
Hoehe 288.028 Hoehe 158.88 
Punkte 4 Punkte 4 
Kreis Parabe | 
1.Punkt 1.Punkt 
s = 288.088 s = 289.028 
h = 73.86 h = 54.08 
2.Punkt 2.Punkt 
s = 428.08 s = 408.08 
h= 129.82 h = 96.28 
3.Punkt 3,Punkt 
Beispiele zu 3.1 s- 628.088 s = 629.088 
. h = 169.05 h = 126.028 
Überhöhungen a,Punkt 4.Punkt 
gs = 8BD.BB s = 888.008 
h= 192.38 h= 144.088 


3.2 Tabellenaufrechnung 


Die Aufrechnung von Zahlentabellen kann mitunter sehr zeitaufwendig sein. Vor allem 
bei umfangreicheren Tabellen ist es sehr ermüdend, jede Zahl zweimal in die Berechnung 
einbeziehen zu müssen: Einmal zur Berechnung der Zeilen- und das zweite Mal zur Er- 
mittlung der Spaltensumme. Dazu kommt noch, daß die Summen der Zeilen- und der 
Spaltensummen gleich sein muß. Die Aufrechnung umfangreicher Tabellen mit längeren 
und daher schwer lesbaren Zahlenwerten von Hand kann sehr mühsam sein. Die Wahr- 
scheinlichkeit von Lese- und Verarbeitungsirrtümern nimmt mit der Tabellengröße zu. 
Bei Verwendung eines Programms wird einmal die Fehlerwahrscheinlichkeit bei der Ein- 
gabe halbiert, da eine Zahl nur einmal eingegeben werden muß; sie wird deswegen ge- 
ringer, da ein Ermüdungsfaktor erst viel später auftritt. Eine recht einfache Tabelle kann 
folgendes Aussehen haben: 


68 3 Praktische Anwendung 


Zeilen- 
summe 


Spalten- 151 39 123 
summen 





Die 12 Spalten könnten als Monatswerte und die Zeilen als Warengruppen gedeutet wer- 
den. Die Tabelle könnte z.B. eine Statistik von Umsatzziffern in 1000 DM darstellen. 

Bei auftretenden Leermeldungen kann die Verarbeitung auf folgende Weise abgekürzt 
werden: 


e Eine Leermeldung: Eingabe der Zahl 0. 

© Mehr als eine Leermeldung: Mehrmalige O-Eingabe oder Positionsanwahl der nächst- 
folgenden Eingabe, allerdings nur innerhalb einer Zeile möglich. 

© Letzte Eingabe nicht in der letzten Spalte: Mehrmalige O-Eingaben oder vorzeitige 
Zeilenabsummierung. 


Außerdem sind im vorliegenden Programm folgende Wahlmöglichkeiten gegeben: 


© Korrektur der jeweils letzten Eingabe, auch dann, wenn eine Zeile bereits absummiert 
wurde. Weiter zurückliegende Eingabeirrtümer bedingen allerdings eine neue Verarbei- 
tung. 

© Die Verarbeitung ist wegen der Vielzahl an Ausgaben nur mit Drucker möglich. 

Eine Aufrechnung kann mit oder ohne Dokumentation der Eingaben erfolgen. 

e Es können die Anzahl der Dezimalstellen, aber auch das Zahlenformat Fix- oder Gleit- 
komma eingestellt werden. 

e Die Anzahl der Spalten kann zwischen 2 und 999 eingestellt werden. Die Anzahl der 
verarbeitbaren Zeilen ist nicht beschränkt. 


Speicherorganisation 


A — Zeilenzähler 

— Spaltenzähler, Spaltenindex für Leistung 

— Anzahl Spalten 

— Anzahl Dezimalstellen 

— Eingabedokumentation 

— Zeilensumme, Spalten-Zeilensumme 

zuletzt eingegebener Tabellenwert 

— kombinierte Zeilen-/Spaltenposition, Spaltenindex 
— Spaltenindex (Rückstellspeicher) 

— Sprungziel Zahlenformat 

— kombinierte Positionsangabe (Rückstellspeicher) 


— Zeilensumme (Rückstellspeicher) N _ — aktuelle Eingabe (Rückstellspeicher) 
— Gleitkommakennzeichnung S(C) — Eindimensionales Feld Spaltensummen 


srr-Ipnrmıpo‘mn 
| 


3.2 Tabellenaufrechnung 


12: 


28: 


3B: 


aD: 


5ß: 


6P: 


70: 


80: 
9P: 


192: 


112: 


122: 


13B: 


142: 


"TABL":PRINT " 
xXX Tabe | len-Au 
frechnung XX": 
CSIZE 2:COLOR 
B:LF 1:60OSUB 4 


B:GOSUB 68 
LPRINT "DEF Ve 
rarbe ı tung": 
GOSUB SB: 
LPRINT "A - St 


ort":LPRINT "S 
- Spaltenpos. 


LPRINT "Z - Ze 
: lJensumme": 
LPRINT "C - Ko 
rrektur":GOSUB 
SB:LF 4:END 
LPRINT "XKKKXKX 
KKKKKKKKRKKKKU: 
RETURN 

LPRINT "------ 
RETURN 

LPRINT " T 
obellen": 
LPRINT " 
frechnung": 
GOSUB 4B:LF 1]: 
RETURN 
"A"ICLEAR : 
PRINT "Tab. We 
rte eingeben": 


-Au 


M=B: INPUT "Gle 
ıtkomma”? Ja 1C 
ENTER>";M 


IF M<>BTHEN 11 
1% 
INPUT "Dezımal 
en = ";5D 
IF CD<B>OR CD> 
9YOR (D-INT DA 
>B)THEN 98 
INPUT "Spalten 
= "sc 
IF CcC<2>DOR (C> 
9IIYY)OR (CC-I1INT 
EC<>B)THEN 118 
DIM SCC): INPUT 
"Eingabedok? ) 
a l(CENTER)";E 
GOSUB 62: IF E= 
RDLF 1:LPRINT " 
Zeıle S 
umme'":GOSUB SB 


158 


258 


260: 


27B 
288 


298 


3BB: 


318 


320: 


33B: 


34B: 


:Q=zAr1:USING : 
IF E<>BLF 1: 
LPRINT "Zeile" 
"A: LPRINT "Spa 
te Wer 
t":GOSUB 58 

:LLS :B=B+1:K=B 


OR (G=B)THEN 2 
aD 

USING "HH": 
LPRINT B; 

: IF M=BTHEN 2382 
:D=DB:N=G 

:IF N-INT N<>B 
LET N=1BXN:N=D 
+1:GOTO 228 
:GOSUB (D+49)X1 
R:LPRINT G: 
USING 
:L=F:1=BiH=K: F= 
F+G:S(CB)=S(cB)+ 
G: IF B<CTHEN 1] 
68 

:"Z":CLS :PRINT 
"Zei lensumme " 
‚aA: IF E=BTHEN 
288 

GOSUB SB: 
LPRINT "Summe!" 


:GOTOD 298 
USING "HHRRR": 
LPRINT A; 

: IF M=BTHEN 328 
D=B:N=F 

:IF N-INT N<>B 
LET N=1BRXN:D=D 
+1:2G0OTO 3182 
GOSUB (D+49)X1 
B:LPRINT F:B=B 
-F=B: INPUT "Ne 
ue Zeıle? Ja ] 
CENTER)"35Z: 
COTO 158 

LF 1:LPRINT "S 
palte Su 
mme":GOSUB SB: 
FOR 1=1T0 C 
USING "HHHHH": 
LPRINT 1]; 


358: IF M=BTHEN 388 
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360: 
37B: 


380: 


392B: 
app: 
a]D: 


a2D: 


43B: 


a4aD: 


a5ßp: 
462: 


478: 
48B: 
498: 
SDB: 
S1B: 
328: 
532: 
sap: 
Ssß: 
S6ß: 
>7B: 


58P: 
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D=B:N=SCI]I) 
IF N-INT N<>B 
LET N=1BXN:D=D 
+1:G0OTO 378 
GOSUB (D+r49)X] 
D:LPRINT SCID: 
F=F+SCI): NEXT 
1:GOSUB 58 
IF M=BTHEN 428 
D=B:N=F 
IF N-INT N<>B 
LET N=1RXN:D=D 
+1:6C0TO 412 
GOSUB (D+49)X1 
B:LPRINT "Ges. 
"SFZUSING :LF 
4: END 
"S"ZCLS : INPUT 
"Position = ";j 
H 
IF cCH<1DOR CH» 
CDOR CH-INT HS 
>B)>THEN 438 
B=H-1:G0OTO 168 
"C"3CLS ZUSING 
«PRINT "Korrek 
tur": IF CE<>BD) 
OR CF=B) THEN 
LPRINT "Irrtum 
":GOTO 488 
PRINT "Irrtum" 
SCHI=SCHI-G:F= 
L:B=1-1:6G0T0 1 
68 
USING "HEHRHHHHH 
YHHHRR": RETURN 
USING "HHRHHRHH 
HHA#.#". RETURN 
USING "HRRRHHHH 
HHH.#H": RETURN 
USING "HHRHRHH 
4#. #44": RETURN 
USING "RHRHRHHR 
4. HHHR"S RETURN 
USING "AHHRRRHR 
#HRHH" RETURN 
USING "HHRHRHHR. 
EHER": RETURN 
USING "HHRHR.H 
HHRHHH "RETURN 
USING "HHRR.HH 
YHHHRH"S RETURN 
USING "HHR.HHH 
HHHHHHR" RETURN 
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Bedienungsanleitung 

1. Programm mit RUN (ENTER) oder RUN "TABL" (ENTER) starten. 

2. Kontrollanzeige ‘'** Tabellen-Aufrechnung **’ mit (ENTER) löschen; Ausdruck 
einer kurzen Verarbeitungsanleitung. Nach einem mehrfachen Zeilenvorschub ver- 
löscht die Anzeige bis auf das Bereitschaftssymbol. 

3. Aufrechnung mit (DEF) A starten. 

4. Kontrollanzeige "Tab. Werte eingeben‘ mit (ENTER) löschen. 

5. Bei Anzeige “'Gleitkomma? ja 1 (ENTER) _'' über das Zahlenformat entscheiden: 
5.1. Gleitkommaausgabe: Beliebige Zahl eintasten, (ENTER) drücken und bei 

Punkt 7 fortsetzen. 

5.2. Fixkommaausgabe: (ENTER) ohne vorangehende Zahleneingabe drücken. 

6. Bei Anzeige “'Dezimalen = _'" ganze zwischen einschließlich O und 9 liegende Zahl 
eintasten und (ENTER) drücken. 

7. Bei Anzeige "Spalten = _'" ganze zwischen einschließlich 2 und 999 liegende Zahl ein- 
tasten und (ENTER) drücken. 

8. Bei Anzeige “Eingabedok? ja 1 (ENTER) _‘' über die Eingabedokumentation ent- 
scheiden: 

8.1. Kontrollausdruck der Eingaben: Beliebige Zahl eintasten, (ENTER) drücken 
und bei Punkt 9 fortsetzen. 

8.2. Keine Eingabedokumentation: (ENTER) ohne vorangehende Zahleneingabe 
drücken. 

In beiden Fällen wird ein Verarbeitungstitel ausgedruckt. 

9. Bei Anzeige "Pos. z, s="" über die weitere Fortsetzung im Programm entscheiden: 
9.1. Zuletzt getätigte Eingabe war fehlerhaft: (DEF) C drücken und nach Ausgabe 

eines Korrekturhinweises Eingabe ab Punkt 9, bzw. 9.4 wiederholen. 

9.2. Eine oder mehrere Eingabepositionen überspringen: (DEF) S drücken und bei 
Anzeige “Position = _'' ganze zwischen 1 und maximaler Spaltenzahl gelegene 
Zahl eintasten, (ENTER) drücken und bei Punkt 9, bzw. 9.4 fortsetzen. 

9.3. Zeile vorzeitig summieren: (DEF) Z drücken und bei Punkt 10 fortsetzen. 

9.4. Nach Betätigung von (ENTER) bei Anzeige "Pos. z, s = ?'' angezeigten Tabel- 
lenwert nach Zeile z und Spalte s eintasten und (ENTER) drücken. Sind noch 
nicht alle Eingaben für eine Zeile getätigt, wird nach einem Kontrollausdruck 
(nur bei angewählter Eingabedokumentation!) mit Punkt 9 fortgefahren. Die 
Betätigung von (ENTER) ohne vorangehende Zahleneingabe bewirkt eine Ein- 
gabewiederholung. 

10. Anzeige "Zeilensumme N’ mit (ENTER) löschen; die Zeilensumme wird in allen 

Fällen ausgedruckt. 

11. Bei Anzeige "'Neue Zeile? ja 1 (ENTER) _‘ über die weitere Fortsetzung entscheiden: 

11.1. Weitere Zeilen eingeben: Beliebige Zahl eintasten, (ENTER) drücken und bei 
Punkt 9 fortsetzen. 

11.2. Aufrechnung abschließen und Spaltensummen abrufen: (ENTER) ohne voran- 
gehende Zahleneingabe drücken; die Spaltensummen und die Gesamtsumme 
derselben werden ausgedruckt. Nach mehrmaligen Zeilenvorschub zum be- 
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quemen Abitrennen des Druckstreifens verlöscht die Anzeige bis auf das Bereit- 
schaftssymbol; die Verarbeitung ist beendet, eine neue kann ab Punkt 1 oder 3 
aufgenommen werden. 


Als Testbeispiele haben wir zwei Varianten gewählt: Beispiel 1 ist eine Aufrechnung der 
angegebenen Tabelle ohne Eingabedokumentation in Fixkommadarstellung mit 2 Dezi- 
malstellen; Beispiel2 dagegen eines mit Eingabedokumentation mit Gleitkommadar- 
stellung. 


KKKKKKKKKKKKKKKKKK Spalte Summe Zeile 2 
Tabellen ....emuminll7777nno Spalte Wert 
-Aufrechnung 1 151.88 _------------------ 
KKKKKKKKKKKKKKKKKK 2 131.88 l 6 
3 39.88 2 6 
DEF Verarbe ı tung 4 123.8B Irrtum 
---- -- - - - --------- is) 187.088 2 3.1 
A - Stuart 6 181.088 3 2.16 
S - Spaltenpos. ? 153.88 4 5.1 
?! - Zei lensumme 8 121.8B 5 3.16 
CU - Korrektur 9 143.88 Irrtum 
4-2... 19 233.098 5 3.2 
I] 772.808 "7-72 ------------- 
12 IlB.28 Summe 19.56 
Tabellen Ges. 1569.8B Zeile 3 
-Aufrechnung S 
KKKKKKKKKKKKKKKKKK »ralte --______ nert 
Zeile 1 3 4.1 
Zeile Summe Spalte Wert A 2 95345 
' 199.00 We 
2 198.28 2 2.27 
3 36.20 3 2.335 Summe 7.15345 
4 343.08  __------------------ 
5 344.08 Summe 4,185 Spalte Summe 
? 111.88 3 D.335 > 5.37 
Irrtum a 4 2 6 595 
? 231.08 mm mmmememomenn a 11.15345 
8 163.098 Summe 8.185 5 4.2 
Testbeispiele zu 3.2 Tabellenaufrechnung bes. 34.81845 


3.3 Massenermittlungen 


Bauausführende Unternehmungen, aber auch interessierte private Bauherren können an- 
hand einer Massenermittlung Mengen und Kosten für ein Bauwerk leicht abschätzen. Der 
Professionalist unter den Rechneranwendern wird daher das vorliegende Programm mit 
einem Kalkulationsteil erweitern wollen. 

Wir begnügen uns hier mit der Ermittlung der Massen, und zwar wollen wir folgende 
Details berechnen: 
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© Mauerwerk nach m? und m? getrennt nach Außen- und Zwischenwänden; 
© Deckenfläche, die den Raum nach oben abschließen nach m? und m?: 

© Außenputz nach m?:; 

® Innenputz nach m?, getrennt nach Decken- und Wandflächen. 


Als Beispiel wählen wir einen beliebigen Grundriß eines Einfamilienhauses, der aus den 
Bildern entnommen werden kann. Nun wird es nicht möglich sein, mit dem vorliegenden 
Programm auch andere Grundrißformen zu bearbeiten. Entweder man wählt weitere Pro- 
gramme oder versucht in einem Universalprogramm sämtliche relevanten Grundrißformen 
unterzubringen; das Programm kann daher nur als Anregung zu eigenen Gestaltungen 
dienen. 





Grundriß eines Einfamilienhauses 





Schnitt durch ein Stockwerk eines Einfamilienhauses 
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Formelmechanismus 

Außenmauerwerk: 
Fa=2'h, (l+b-2-w) tn t.—h°(2f,+6°f,) 
M,=F,'w 

Innenmauerwerk: 


F,= h, (la+tla +s+2°b, +bo) -5’t; to 


M; = F; .S 
Gesamtmauerwerk: 

F=F,+tF; 

M = M, + M; 


Deckenfläche: 


D=!-b 

V=- D-(h-h,) 
Außenputz: 

P=2-(l+b)-h 


Die Aussparungen für Fenster und Türen werden übermessen. 
Innenputz: 

Decken: Ig = (I, + l, + I.) . b; + (la + I.) . b> 

Wand: lI,=2.h, (I tlatlz+tla+tls+3°bı +2°b,) 

Gesamt: I=I,+tI, 


Plausibilitätskontrollen im Programm: 
I, +l, tl, +2 wt+t2°s = I3+l,+2 wts =] 


bı+b,+2w+ts=b 


Speicherorganisation 


A-—I K-s 

B —-b L-h 

C-1, M-h; | 

D-I, N — t. (Haustürbreite) 

F-I P — t4 (Innentürbreite) 

H-b; R — f, (Breite Fenster A) 

I-b S — f) (Breite Fenster B) 

J -w T - f (Höhe Fenster A, B) 
U,X,Y,Z -— Hilfsspeicher 
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12: 


: INPUT 


: INPUT 


: INPUT 


: INPUT 


: INPUT 
:LPRINT 


: INPUT 


: INPUT 


:LPRINT 
: INPUT 
:LPRINT 


: INPUT 


"MASS": CLEAR : 
S$="Massenermi 
tt lung": PRINT 
"xxx ",S$;," 
XXX"SCSIZE 2: 
COLOR B:LF ]: 
GOSUB 56B 


:LPRINT " 7;,5S$: 


GOSUB 568 
"Weiter? 
neın 1CENTER) 
"ı2:END 


:LF 2:LPRINT "E 


ıngaben ın cm: 
"s;GOSUB 5>7D 
"Haus loe 


nge = "5A 


:LPRINT "L ="; 


Q 
"Hausbre 


ite = ";B 


:LPRINT "B ="; 


B 
"Laenge 
Raum 1 = ";5C 


:LPRINT "LI ="; 


C 

"Laenge 
Raum 2 = "5D 
"L2 ="; 
B 

"Laenge 


Raum 3 = "}E 


:LPRINT "L3 ="; 


F 


: INPUT "Laenge 


Raum 4 = ";jF 


:LPRINT "L4 ="; 


F 


: INPUT "Laenge 


Raum 5 = "3G 


:LPRINT "L5 ="; 


U 

"Breite 

Raum l; 2,5 =" 
‚HH 

"Bl ="; 
H 

"Breite 

Raum 3,4 = "5l 
"B2 ="; 
I 

"Aussenw 


onddiıcke = "5J 


2Z3B:LPRINT "DA ="; 
J 
248: INPUT "Innenwa 
nddiıcke = "}K 
25ß: 


LPRINT "DI ="; 
K 


:IF C#D+G+2%(J+ 


KI<DATHEN 38 


z7/B: IF E+F+2XJ+KC> 
ATHEN 3B 

28B: IF H+l+2XJ+K<> 
BTHEN 38 

29B: INPUT "Bauhoeh 
e = "5L 

3BR:LPRINT "H ="; 
L 

31R: INPUT "Raumhoe 
he = ";M 

328:LPRINT "Hl ="; 
Mm 

33B: INPUT "Breite 
Haustuer = "}N 

34B:LPRINT "BT ="; 
N 

358: INPUT "Hoehe H 
ausruer = "50 

36B:LPRINT "HT ="; 
Q) 

3?7B: INPUT "Breite 
Innentuer = "}3 
P 

388:LPRINT "TB ="; 
p 

398: INPUT "Hoehe I 
nnentuer = '"5Ü 

aBo:LPRINT "TH ="3 
Q 

an: INPUT "Breite 
A-Fenster = "3 
R 

a42B:LPRINT "BF ="; 
ro 

438: INPUT "Breite 
B-Fenster = "; 
S 

44B:L PRINT "NF ="5 
S 

450: INPUT "Fenster 
hoehe = "5T 

a4608:LPRINT "HR ="; 
T 

a7Bß:LF 2:LPRINT "A 


Programmlisting 3.3 Massenermittlung 


usgaben:': 
GCOSUB 57P: 
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a8p: 


a9ß: 


495; 


SPP: 


SlR: 


52B: 


53B: 


540: 


SS5ßp: 
56ßB: 


S?7R: 


LPRINT "Mauerw 
erk":LPRINT " 


gussen:" 
xX=C2XMNXCA+HB-2%X 
J3-NXO-2XTXR-6 
xXTXS)/1E4: 
LPRINT " m2 =" 
IX: Y=XXJ/1BBR: 
LERINT "ma =" 


p) 

LPRINT " ınnen 
"2 2=(NMNXCE+F+K 
+2XH+1)-SXPXO) 
/13E4:LPRINT " 
m2 ="32 


U=ZXK/1DR: 
LPRINT " m3 =" 
; 

LPRINT " gesam 


LE" SXEXHtZ;Y=Y+ 
U:LPRINT " m2 
zZ"3 X: LPRINT " 
m3 ="}YyY:LF 1]: 
LPRINT "Decken 
Flaeche" 
x=NXB/1E4: 
LPRINT " m2 =" 
IX: VERXKCL-MD/1 
BB:LPRINT " m3 
z";Y:LF ]: 
LPRINT "Aussen 
putz' 
x=2XCA+B)XL/1IE 
4:LPRINT " m2 
=Z"IX:LF ]: 
LPRINT "Innenp 
utz":LPRINT " 
Decke: 
X=(CCC+D+G)XHH+C 
E+F>DXID/I1E4: 
LPRINT " m2 =" 
ı%:LPRINT " Wa 
nd: 
Y=2XNXCC+D+G+3 
XH+rE+F+2XID/IE 
4:LPRINT " m2 
="; Y:LPRINT " 
gesamt: ";X=X+Y 
:LPRINT " m2 = 
"ıX:LF 4 
COTO 28 
LPRINT "XKXXXX 
XKKKKKKKKRKKK: 
RETURN 
LPRINT "------ 


Cm mm mu un m m Hm Am Sen me Hu m 


RETURN 
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Bedienungsanleitung 


Das Programm kann nur mit Drucker betrieben werden. 
Programm mit RUN (ENTER) oder RUN "MASS (ENTER) starten. 


Kontrollanzeige '*** Massenermittlung ***‘' mit (ENTER) löschen; es wird ein Ver- 
arbeitungstitel ausgedruckt. 


1. 
2. 


Bei Anzeige ‘Weiter? nein 1 (ENTER) _’ über die weitere Fortsetzung im Programm 
entscheiden: 


3.1. 


3.2. 


Verarbeitung beenden: Beliebige Zahl eintasten und (ENTER) drücken; die An- 
zeige verlöscht bis auf das Bereitschaftssymbol. Eine neue Verarbeitung kann 
nur ab Punkt 1 aufgenommen werden. 

Verarbeitung starten: (ENTER) ohne vorangehende Zahleneingabe drücken. Es 
wird ein Hinweis zur Maßeinheit der Eingaben ausgedruckt. 


Nachfolgend sind bei entsprechenden Eingabehinweisen die Maße in cm einzu- 
tasten und die Eingabe mit der Betätigung von (ENTER) abzuschließen; die 
Eingaben werden zur Kontrolle sofort ausgedruckt. Nach der Eingabe des 
Maßes für die Innenwandstärke s kann es zur Neuaufnahme sämtlicher bisher 
getätigter Eingaben zufolge irrtümlicher Eingaben kommen. 

Nach Einspeicherung des letzten Maßes werden die Ergebnisse berechnet und 
ausgedruckt. Nach einem mehrfachen Zeilenvorschub zum bequemen Abitren- 
nen des Druckstreifens wird bei Punkt 3 fortgesetzt. 


In unserem Testbeispiel wurde für b, ein falscher Wert eingetastet, so daß es wegen der 
durchgeführten Plausibilitätskontrolle zur Neuaufnahme der Eingaben kommen mußte. 


KKKKKKKKKKKKKKKKKK Eingaben ın cm: Ausgaben: 
Massenermitt lung __ -=--=--------- 07-22-2002 


KKKKKKKKKKKKKKKKTK L = 1882 Mauerwerk 

B = 880 aussen: 

L1 = 298 m2 = 21.849 
Fingaben in cm: L2 = 3R8 m3 = 21.552 
m — nn non nun L3 = 468 ınnen;: 
L = 1R88 L4 = 455 m2 = 46.72 
R = 822 LS = 388 m3 = 11.68 
Ll = 298 Bl = 335 gesamt: 
L2 = 3828 B2 = 388 m2 = 118.56 
L3 = 468 na = 38 m3 = 33.232 
L4 = 455 ni = 25 
LS = 388 H = 388 Deckenflaeche 
Bl = 35 Hl = 280 m2 = 88 
B2 = 388 BT = 128 m3 = 16 
DA = 38 HT = 22B 
DI = 25 TB = 38 Aussenputz 

TH = 208 m2 = 188 

BF = 24B 

NF = 180 Innenputz 

HF = 158 Decke: 

m2 = 64.585 

Beispiel zu 3.3 Wand: 
Massenermittlung mit Eingabefehler in B1 m2 = 133.932 


gesamt: 
m2 = 264.585 
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3.4 Fixe Kosten — veränderliche Kosten 


In der innerbetrieblichen Kostenrechnung kommt es in der Anwendung von Teilkosten- 
rechnungsverfahren zur Trennung von Kosten in zwei Bestandteile. Der erste Teil ist 
jener, der sich mit der Beschäftigungslage nicht ändert; diese Kosten nennt man fixe 
Kosten. Der zweite Teil ändert sich in Abhängigkeit von der Produktion eines Unter- 
nehmens, und diese Kosten werden veränderliche oder variable Kosten genannt. Viele 
Kostenarten sind entweder eindeutig fix, z.B. Gehaltskosten oder eindeutig veränderlich, 
z.B. Fertigungsmaterialkosten. Zu einer Trennung kommt es meist nur bei den Gemein- 
kosten, die deswegen so heißen, weil sie nicht direkt oder eindeutig zugeordnet werden 
können. Sie werden auf bestimmten Kostenstellen gesammelt und über einen Verteilungs- 
schlüssel (siehe dazu auch Programm 3.6) weiter verrechnet. Aber schon die sogenannten 
Primärkosten, die dem Gemeinkostentopf zuzurechnen sind, zeigen unterschiedliches 
Kostenverhalten, d.h. sie bestehen aus fixen und veränderlichen Anteilen. Ohne auf die 
angedeutete Problematik weiter einzugehen, wollen wir in dem vorliegenden Programm 
Kostensummen bilden und diese nach entsprechenden Vorgaben aus Ausgangswerten zu 
Gesamtsummen verdichten und aus der Teilung der Ausgangszahlen in fixe und variable 
Kostenbestandteile diese Trennung auch in der Kostensumme bestimmen. 


In unserem Testbeispiel wird der Begriff Variator verwendet. Er bezeichnet in einer 
Kostenart den Anteil der variablen Kosten in ganzzahligen Prozenten. 


Es gilt also: 


G=F+V bzw. VA = ©: 100. 


Legende: F — fixe Kosten 
V — variable Kosten 
G -— Gesamtkosten 
VA — Variator 


Der Formelmechanismus gilt sowohl für Ausgangswerte als auch Kostensummen. 


Im Programm, das mit oder ohne Drucker gefahren werden kann, sind Eingaben bewußt 
vom Summenabruf getrennt worden. 


Speicherorganisation 


E - Einzelgesamtkosten einer Kostenart 
Einzelvariator dieser Kostenart 
Summe Gesamtkosten 

V - Summe veränderliche Kosten 
Verarbeitungskennzeichen 

VA — Gesamtvariator 


Aa 
IA 


A 
N 
| 


3.4 


18: 


2B: 


3B: 


4B: 


5D: 


60: 


7B: 


8pD: 


9p: 


Fixe Kosten — veränderliche Kosten 


"FIVURA"SCLEAR : 
S$="Kostentren 
nung": PRINT 'X 


XXX 9"5S$5" X 
xxx" 
KZ=1: INPUT "An 


zeıge 1/Druck 
2CENTER)"5SKZ 
IF (KZ<1DOR (K 
Z>2)OR (KZ-INT 
KZ<>B)THEN 28 
IF KZ=2CSIZE 2 
:COLOR 8:GOTO 
68 
PRINT "(DEF) A 
- Eingabe Kos 
ten":PRINT "<(D 
EF S - Summen 
abruf":END 
LF 1:GOSUB 88: 
LPRINT "x ";S$ 
‚" xX":GOSUB 88 
:LF 1 


LPRINT "DEF Ve 
rarbe ıtung": 
GOSUB 92: 
LPRINT "A - Ei 


ngabe KostenS 
- Summenabruf" 
:LF 4:END 


LPRINT "XXKEXKKX 
KKKKKKKKKKKKU: 
RETURN 
LPRINT "------ 
RETURN 


12B: 


185: 


112: 


122: 
130B: 


14B: 
1508: 
160: 


172: 


18B: 


19B: 


2DB: 


218: 


22P: 
23B: 


"A":PRINT "Eın 
gabe Kosten":K 
=B:V=Q9 

IF KZ=2LF 1: 
LPRINT "Eingab 
en: ":LPRINT "G 
esamtkosten U 
ar.":GOSUB 9B 
PRINT "Kosten 


to 


_ J 

INPUT E 

CLS :PRINT "Va 
rn. = ts 

INPUT F 

CLS :IF (F<B) 


OR (F>1BB)THEN 
138 

IF KZ=1THEN 19 
7) 


USING "HRHHHHH 
###": TAB 2: 
LPRINT E; 
USING "HHH#": 
TAB 13:LPRINT 
F 

INPUT "DK? ne ı 
n 1CENTER)"35Z: 
GOTO 212 

GOTO 238 

IF KZ=2LPRINT 
"Irrtum" 

GOTO 112 
K=K+E: U=U+]INT 
(CEXF/122+.59: 
INPUT "Weiter? 
Ja 1CENTER)"; 


Programmlisting 3.4 Fixe Kosten — veränderliche Kosten 


Bedienungsanleitung 
Programm mit RUN (ENTER) oder RUN "FIVA" (ENTER) starten. 
Kontrollanzeige ''**** Kostentrennung ****‘' mit (ENTER) löschen. 

Bei Anzeige "Anzeige 1/Druck 2 (ENTER) _‘ über die Ausgabeart entscheiden: 


1. 
2. 
3. 


onoo 


3.1. 


242: 
250: 
26B: 


27B: 


280: 


29B: 


3DßB: 


3.2. Druck: 2 (ENTER) drücken und bei Punkt 16 fortsetzen. 


Anzeige von Verarbeitungshinweisen, die jeweils mit (ENTER) abgerufen werden. 
Nach diesem Programmvorlauf verlöscht die Anzeige bis auf das Bereitschaftssymbol. 


. Eingabe Kosten anwählen: (DEF) A drücken. 
Kontrollanzeige "Eingabe Kosten‘ mit (ENTER) löschen. 


Bei Anzeige “Kosten =" (ENTER) drücken. 
Bei Anzeige "Kosten = ?'' Gesamtkosten einer Kostenart ganzzahlig eintasten und 


(ENTER) drücken. 


71 
2:GOTO 112 
IF KZ=2LF 4 
END 
"S"SPRINT "Sum 


menabruf":UA= 

INT C1BBXU/K+. 
S):1IF KZ=2THEN 
282 

PRINT "F-Koste 
n=";K-U: PRINT 

"U-Kosten=";WV: 
PRINT "G-Koste 
n="5K:PRINT "U 
arıator=";UR: 

END 

LF 1:LPRINT "G 
esamtsummen:": 


LPRINT "F=fixe 
Kosten": 
LPRINT "U=var 


able Kosten" 
LPRINT "G=Gesa 
mtkosten": 
GOSUB 98:USING 
"RHHRHHRHHHHHHH 
##" 

LPRINT "F =";K 
-UV:LPRINT "UV = 
":V:LPRINT "G 
="5K:LPRINT "U 
arıator";USING 
"HHRRHHHHRR" ; U 
A:USING :LF 4: 
END 


Anzeige: 1 (ENTER oder nur (ENTER) drücken und bei Punkt 4 fortsetzen. 
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. Bei Anzeige “Var. = ‘' (ENTER) drücken. 
. Bei Anzeige ‘Var. = ?'' Variator ganzzahlig zwischen einschließlich O und 100 ein- 


tasten und (ENTER) drücken. Fehlerhafte Eingaben führen zum Verbleiben bei der 
beschriebenen Anzeige. 


11. Bei Anzeige “OK? nein 1 (ENTER) _‘ über die weitere Fortsetzung entscheiden: 
11.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und Ein- 

gaben beider Werte ab Punkt 7 wiederholen. 

11.2. Eingabe korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken. 

12. Bei Anzeige ‘Weiter? ja 1 (ENTER) _‘ über die weitere Fortsetzung entscheiden: 
12.1. Eingaben fortsetzen: Beliebige Zahl eintasten, (ENTER) drücken und die 

nächsten Eingaben ab Punkt 7 vornehmen. 

12.2. Eingaben abschließen: (ENTER) ohne vorangehende Zahleneingabe drücken; 
die Anzeige verlöscht bis auf das Bereitschaftssymbol. Der Summenabruf kann 
getätigt werden. 

13. Summen abrufen: (DEF) S drücken. 

14. Kontrollanzeige ''Summenabruf‘ mit (ENTER) löschen. 

15. Ergebnisse in Übereinstimmung mit dem Ausdruck des Testbeispiels jeweils mit 
(ENTER) abrufen. Nach Anzeige des letzten Resultats verlöscht die Anzeige bis auf 
das Bereitschaftssymbol. Der Summenabruf kann beliebig oft wiederholt werden. 
Weitere Verarbeitungen sind ab Punkt 1 oder 5 aufzunehmen. 

16. Nach Ausdruck eines Verarbeitungstitels und einer kurzen Verarbeitungsanleitung 
verlöscht die Anzeige bis auf das Bereitschaftssymbol. 

17. Eingaben in Übereinstimmung mit den Punkten 7 bis 12 durchführen; es sind folgen- 
de Unterschiede zu beachten: 

— Ausdruck einer Titelzeile zu Beginn der Eingaben. 

— Dokumentation der Eingaben nach Eingabe des Variators in Punkt 10. 

— Ausdruck des Texthinweises Irrtum“ in 11.1. 

— Zeilenvorschub nach Beendigung der Eingaben in Punkt 12.2. 

18. Ergebnis mit (DEF) S abrufen. Die Ergebnisse werden in Übereinstimmung mit dem 
Testbeispiel ausgegeben. Nach mehrmaligem Zeilenvorschub zum bequemen Ab- 
trennen des Druckstreifens verlöscht die Anzeige bis auf das Bereitschaftssymbol. 
Weitere Verarbeitungen können ab Punkt 1 oder 5 aufgenommen werden. 

KKKKKKKKKRKKITKKTRTK Eingaben: Gesamtsummen: 

X Kostentrennung * Gesamtkosten Var. F=fixe Kosten 

KKKKKKKKKKIKTKKEKEKUOO0570 TTS nnnnnn U=varıable Kosten 

25 15 G=Gesamtkosten 

DEF Verarbe ıtung 86571 63° 777777222 

22-2720 86571 63 F= 137951 

A - Eingabe Kosten Irrtum U = 181242 

S - Summenabruf 25447 45 G = 2393193 

6547 al Variator 42 
120683 27 


Beispiel zu 3.4 Fixe Kosten — veränderliche Kosten 
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3.5 Verfahrensvergleich 


Ein Vergleich zweier Verfahren läßt sich sehr leicht anhand ihres jeweiligen Kostenver- 
haltens ziehen. Ein vor allem in der Kostenrechnung angewandtes Verfahren zieht Schlüsse 
aus der jeweiligen Beschäftigungslage. Im Beispiel 3.4 haben wir das Kostenverhalten 
beobachtet. Mit der Veränderung der Beschäftigung verändert sich auch das Verhältnis 
zwischen fixen und veränderlichen Anteilen einer Kostensumme. 


Im nachstehenden Beispiel haben wir in ein Koordinatensystem zwei solcher Verfahren 
eingetragen. Die vom Koordinatenursprung ausgehende unter 45 Grad geneigte Linie stellt 
die Erlöslinie dar. Aus der x-Achse (Abszisse), d.i. in der Horizontalen, werden die Um- 
sätze und auf der y-Achse (Ordinate), d.i. in der Vertikalen, werden die Kosten aufge- 
tragen, die zur Erzielung eines bestimmten Umsatzes notwendig sind. Für jedes Verfahren 
gibt es die horizontale Linie parallel zur x-Achse, die die Fixkosten eines Verfahrens dar- 
stellt, und eine geneigte Linie, die vom Schnittpunkt der Fixkostenlinie mit der y-Achse 
ausgeht und die die veränderlichen Kosten darstellt. Im jeweiligen Schnittpunkt der 
Geraden der veränderlichen Kosten mit der Erlöslinie ergibt sich der Punkt, an dem 
Kosten und Umsatz gleich sind. Darunter werden Verluste, darüber Gewinne erzielt. Im 
Schnittpunkt beider Geraden, die die veränderlichen Kosten der Verfahren repräsentieren, 
ergibt sich der Punkt der Gewinngleiche. Unter diesem ist jenes Verfahren im Vorteil, bei 
dem die Gerade der veränderlichen Kosten steiler verläuft und darüber das Verfahren mit 
geringer ansteigenden veränderlichen Kosten. 


Kosten Erlöse 


var. Kosten A 


66 var. Kosten B 


_7 fixe KostenB 
WA fixe Kosten A 


Umsatz 


Formelsammlung 


Auch hier können wir wieder auf das Basisprogramm 1.5 zurückgreifen, wenn wir die 
Gerade der veränderlichen Kosten durch zwei Punkte rechnen wollen. 


GG — Gewinngleiche Verfahren A — Verfahren B 
BA — Gewinnschwelle Verfahren A 
BB — Gewinnschwelle Verfahren B 
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Für beide Verfahren gelten hinsichtlich der Erstellung der Geraden für die veränderlichen 
Kosten durch zwei Punkte (Umsatz, Kosten) folgende Beziehungen, bei denen die Um- 
sätze mit x, und x2 und die korrespondierenden Kosten mit y}, und y, gekennzeichnet 
sind: 


Geradengleichung: 

(veränderliche Kosten) 

Yı {Ya 
X1ı7X2' 





y=-yı=m'(x-x,); m= <m<1 


Erlösgerade: y=x 


Geradengleichung: 
(fixe Kosten) 


y=yım'x;; Fixkosten >20 
Gewinnschwelle: 


Yab " Ma, 'Xa,b 


y” 1-m,o 


Gewinn, Verlust bei gegebenem Umsatz: (Eingabe x, gesucht y) 
ymn'(X Xi) tyı 
Gewinngleiche Verfahren A — Verfahren B: 


Umsatz: _ Ma 'Xıa7 Mo Xıb ” Yıa + Yıp 
msatz: X Mm, 


Kosten: y=-yıtm,'x 


Gewinn: g=x-y 


Speicherorganisation 


A — Umsatz aktuell x, 

B — Kosten aktuell y, 

C — Umsatz aktuell x, 

D — Kosten aktuell y, 

E — Steigungswinkel der Geraden der veränderlichen Kosten 
F — Fixkosten aktuell 

A(7) — Umsatz, Kosten Verfahren A 
B(7) — Umsatz, Kosten Verfahren B 

| — Schleifenvariable 

K — Gesamtkosten Vergleich A — B 
U — Umsatz 

V — veränderliche Kosten 

Z — Verfahrenskennzeichnung 
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12: 


20: 


32: 


42: 


se: 


6ß: 


7B: 


8B: 
92: 
1BP: 
112: 
120: 
138: 


142: 


ı5B: 


16: 


"DERF"SPRINT " 
XX Verfahrensv 
ergleıich X*": 
CSIZE 2:COLOR 
B:LF 1:GOSUB 5 
B:LPRINT " Kos 
ten- und Ver-" 
LPRINT " fahre 
nsvergleich": 
GOSUB SB:LF 1: 
LPRINT "DEF Ve 
rarbe ıtung": 
GOSUB 68 
LPRINT "A - Ve 
rfahren A, B": 
LPRINT "G - Ge 
wınn/Ver lust": 
LPRINT "U - Ve 
rgleıch A-B": 
GOSUB 68:CLEAR 
DIM AC?),B(C?2: 
LF 4:END 
LPRINT "XKXXXX 
KKKKKKKIKKIK": 
RETURN 
LPRINT "------ 
RETURN 
"A":ZPRINT "Ver 
fahren A, B": 
COSUB 238 
INPUT "Umsatz 
ı= ";A 
INPUT "Kosten 
I = ";B 
INPUT "Umsatz 
2 = "sC 
INPUT "Kosten 
2 = ";5D 
IF cA=CIOR (B= 
D>THEN 8B 
E=CB-D)’CR-C: 
IF E<BTHEN 88 
F=1NT (B-EXA+. 
S):IF F<BTHEN 
8B 
U=INT C(CB-EXA) 
c1-E)+.5):V=U 
-F:LPRINT "Aus 
gangswerte ";5S 
$:GOSUB 6PB: 
LPRINT "Umsatz 
1:2", A 
LPRINT "Kosten 
1:",B:LPRINT 
"Umsatz 2:",C: 
LPRINT "Kosten 
2:",D:GOSUB 6 
B@:LF 1:LPRINT 
"Ergebnisse "; 
S$ 


178: 


18B: 


192: 
28B: 


210: 


228: 


225: 
230: 


24B: 


25P: 
268: 
272: 
282: 
292: 


3BB: 
31B: 


32: 
338: 


340: 


358 


36B: 


37B: 


LPRINT "und Ge 
wınnschwelle": 
GOSUB 6: 
LPRINT "Fixe K 
osten:",F: 
LPRINT "Varıiab 
le Kosten: ", U 
LPRINT "Grenzu 
msatz:",U: 
GOSUB 6B:FOR ] 
=1T0 ? 
IF Z=1THEN 218 
BCI>=RCI):BCBD) 
=2:GOTO 228 
ACID=SACI):ACDH) 
=] 
NEXT l1:IF E>=l 
LPRINT "Kein G 
ew. moeglich": 
GOSUB 68 
LF 4:END 
INPUT "Verfohr 
en A=1/B=2(CENT 
ER)"SZ 
IF c2Z<1)0OR C2> 
23OR (CZ-INT 2 
>B)THEN 238 
Ss$="A":1IF Z=2 
LET S$="B" 
FOR I=1T0 ? 
IF Z=1THEN 298 
eC1I)=BC1):X=BC 
B):GOTO 388 
BCIHI=SNACII:X=NAC 
BD) 
NEXT I1:RETURN 
"G":PRINT "Gew 
ınn/Verlust": 
GOSUB 238: IF <( 
ACBI=BIAND (BC 
B>=B)ITHEN ?7B 
IF X=BTHEN 88 
INPUT "Umsatz 
= "SU 
IF cU<B)OR <U>D 
=]EIB-I>DTHEN 3 
38 
U=1NT (CEXU+.S5) 
:LF I1:LPRINT " 
Gewinn/Verlust 
"35$:G0OSUB 6B 
LPRINT "Umsatz 
<",U:LPRINT "F 
ıxe Kosten:",F 
:LPRINT "Varıa 
ble Kosten:'",U 
LPRINT "Gesamt 
kosten: ",F-+UV: 
LPRINT "Gewinn 
“-Verlust:", U-U 
-F:GOSUB 6B:LF 
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4: END 

388: "U":PRINT "Ver 
gleich A-B" 

398: IF ACDB)I=BLET 2 
=1:S$="A": 
PRINT "Verfahr 
en A":GOTO 88 

4828: IF B(B)=BLET 2 
=2:S5$="B": 
PRINT "Ver fahr 
en B":6GOTO 88 

alB:LF 1:LPRINT "G 
ewiınngleiıche A 
-B":GOSUB 68 

a2B: IF ACS)I>=1 
LPRINT "Verf. 
A negat ıv" 

439: IF B(S5)>=l 
LPRINT "Verf. 
B negat ıv" 

440: IF CcA(CS)>=]) 
AND (CB(C5)>=1) 
THEN 522 

459: IP ACS»=B(5) 
LPRINT "A aleı 
ch B oder": 
LPRINT "A para 
Iletl B":GOTO 5 
28 

452: U=CACTIXKACIHYI-B 
CSIKBCII-AC2I+ 
BC2)>>7CACSI-BC 
SII:EK=EACE)I+NACS 
IXU: IF U<BTHEN 
488 

4a?7B:LPRINT "Umsutz 
:",1NT (Ur.5>: 
LPRINT "Kosten 
:",1INT (cK+.59: 
LPRINT "Gewinn 
«",1INT (U+.5)- 
INT (CK+.5) 

4808: IF ACS»>=1ILET 
S$="B":60TO 5] 
D 

498: IF BCS>>=SILET 
S$="A":G0TO 51 
D 

588:S$="B": IF B(C5) 
>ACSILET S$="A 


S1B:LPRINT "Verf. 
";S5$;" :ım Vort 
ei" 

3528:60SUB 6B:LF 4: 
END 


Programmlisting 3.5 
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3 Praktische Anwendung 


Bedienungsanleitung 


1. 
2. 


11. 
12. 


13. 


14. 


Programm mit RUN (ENTER) oder RUN "VERF (ENTER) starten. 
Kontrollanzeige ‘'** Verfahrensvergleich **‘' mit (ENTER) löschen; Ausdruck eines 
die Verarbeitung einführenden Textes und einer kurzen Verarbeitungsanleitung. Nach 
mehrmaligem Zeilenvorschub verlöscht die Anzeige bis auf das Bereitschaftssymbol. 


. Anwahl der Verarbeitung: Am Beginn ist als erstes die Eingabe der Ausgangswerte 


anzuwählen: 

3.1. Ausgangswerte eingeben: (DEF) A drücken und bei Punkt 4 fortsetzen. 
3.2. Gewinn-/Verlustrechnung: (DEF) G drücken und bei Punkt 11 fortsetzen. 
3.3. Verfahrensvergleich A — B: (DEF) V drücken und bei Punkt 14 fortsetzen. 


. Kontrollanzeige ‘Verfahren A, B‘' mit (ENTER) löschen. 
. Bei Anzeige ‘Verfahren A = 1/B = 2 (ENTER)_' über die weitere Fortsetzung ent- 


scheiden: 


5.1. Eingabe Verfahren A: 1 (ENTER) drücken. 
5.2. Eingabe Verfahren B: 2 (ENTER) drücken. 


. Bei Anzeige ‘Umsatz 1 = _‘' Wert für x, (Umsatzkoordinate Punkt 1) eintasten und 


(ENTER) drücken. 


. Bei Anzeige ‘Kosten 1 = _’’ Wert für y} (Kostenkoordinate Punkt 1) eintasten und 


(ENTER) drücken. 


. Bei Anzeige "Umsatz 2 = _' Wert für x, eintasten und (ENTER) drücken. 


. Bei Anzeige "Kosten 2 = _‘ Wert für y, eintasten und (ENTER) drücken. 
. Es folgen Berechnung und Ausdruck der dieses Verfahren kennzeichnenden Werte: 


Dokumentation der Eingaben, sowie Angaben zur Gewinnschwelle mit fixen und 
variablen Kosten und Grenzumsatz. Die Anzeige verlöscht bis auf das Bereitschafts- 
symbol. Weitere Verarbeitungen ab Punkt 3 anwählen. 

Kontrollanzeige ‘'Gewinn/Verlust‘ mit (ENTER) löschen. 


Bei Anzeige "Verfahren A = 1/B = 2 (ENTER) _ über die weitere Fortsetzung ent- 
scheiden: 


12.1. Gewinn-/Verlustrechnung Verfahren 1: 1 (ENTER) drücken. 
12.2. Gewinn-/Verlustrechnung Verfahren 2: 2 (ENTER) drücken. 


“ 


Erfolgt daraufhin die Anzeige "Umsatz 1 = _‘', waren die geforderten Werte noch 
nicht eingegeben worden, was nun möglich ist: die Eingaben ab Punkt 6 bis Punkt 10 
durchführen und Gewinn- und Verlustrechnung erneut anwählen. 


Bei Anzeige "Umsatz = _‘' Wert für Umsatz eintasten und (ENTER) drücken. Neben 
der Eingabedokumentation werden für den eingegebenen Umsatz fixe, variable und 
Gesamtkosten berechnet und ausgegeben, sowie Gewinn bzw. Verlust ermittelt und 
ebenfalls ausgegeben. Verluste werden mit negativem Vorzeichen ausgedruckt. 

Die Gewinn- und Verlustrechnung wird mit einem mehrfachen Zeilenvorschub und 
dem Verlöschen der Anzeige bis auf das Bereitschaftssymbol beendet. 
Kontrollanzeige “Vergleich A — B" mit (ENTER) löschen. Werden die Texthinweise 
“Verfahren A’' oder ‘Verfahren B’’ angezeigt, sind diese mit (ENTER) zu löschen. 
In diesen Fällen wird die Eingabe der Ausgangswerte ab Punkt 6 angesteuert. Hierauf 
muß der Vergleich der Verfahren A und B erneut angewählt werden. 
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15. Berechnung und Ausgabe von Umsatz, Kosten und Gewinn des Punktes der Gewinn- 
gleiche sowie eines Hinweises darauf, welches Verfahren im Vorteil ist. 


Sonderhinweise: 


Es gibt eine Reihe von Ausgaben in diesem Programm, auf die besonders hinzuweisen ist: 


e ''Kein Gewinn möglich‘: Das Verfahren kann keinen Gewinn abwerfen. 


e ‘Verf. A(B) im Vorteil’: Hinweis auf das bessere Verfahren. 


e “Verf. A(B) negativ’: Gewinngleiche im negativen Bereich. Sind beide Verfahren 
negativ, erfolgt kein Ausdruck Umsatz, Kosten, Gewinn, sondern nur ein solcher auf 
die negativen Verfahren hinweisend. 

© Sind beide Steigungen der die veränderlichen Kosten repräsentierenden geraden Linien 
zueinander parallel, kommt es zum Ausdruck “A gleich B oder A parallel B’’. Die bei- 


den Geraden können auch einander decken; 


gleiche geben. 


in diesen Fällen kann es keine Gewinn- 


In den Testbeispielen wurden zuerst die Verfahren A und B berechnet und dann miteinan- 
der verglichen. Daraufhin wurden die Angaben zu Verfahren B abgeändert und die Ge- 
winngleiche erneut bestimmt. Danach wurden die Gewinn- und Verlustrechnung für 


beide Verfahren durchgeführt. 


KIKKKKIKKKKKKKKKTK 
Kosten- und Ver- 
fahrensvergleıch 

KKKKKKKKKKKKKKÄKKK 


DEF Verarbe ıtung 


mn am mm se un gen gun Gern ms Gem ur GER ieh mn Ge m A 


a - Verfahren 9, B 
G - Gewiınn/Verlust 
U - Vergleich A-B 


m m m mine m pe mn dm ae mr a ne mn rn ne rn rt 


"um ee ui ame men Auen gib gu END wet gun Geil GEEED ame mu ae me wur 


Umsatz | 
WBBBRR 

Kosten |]: 
94588 

Umsatz 2: 
2 

Kosten 2: 
a9g5dB 


mu m m u u ee nn nme Men De guet zn EEE m A m sb m 


Ergebnisse A 
und Gewinnschuwelle 
Fıxe Kosten: 
493580 
Varıable Kosten: 
au5ßßd 
Grenzumsatz: 


vun am mut m ie Am Gun um amp Grein guuib Grime GEEEm dns dm dee GEB m 


Ausgangswerte B 


"une ame une wirt eis een Gum Gem Hier ame Grub ammn Gramm GEHE (REES Gmb drin Gin 


58228 

Kosten ]: 
859808 

Umsatz 2: 
1%) 

Kosten 2: 
1%) 


u mm Gib wine un EEE Geeib Guide DEE geiem Hmmm mb deren Gum gu Ge Gm mn 


Ergebnisse B 
und Gewinnschuwelle 


: mu ame (mtr ARE (ums (RE Gmb gun GE Dumm aueh (ES Gi GuEE ARME mm Ann Gm 


Fıxe Kosten: 


1% 
Varıuable Kosten: 

% 
GrenzumsatZz: 

2 
Ken Gew. moeglıch 


„us me Cmme mm ms Dem (EEE Guie Amab uumd ii Sue gmmmm Gran geum gdi amm W 


Gewinngleiche A-B 
Verf. B negat ıv 
Umsatz: 


396BB 

Kosten: 
67328 

Gewinn: 
-27728 


Verf. A ım Vorte ı! 


"um ern Ge mn een Armee me gran m men Dem mm dem mn mn men mn 


\BBBRR 

Kosten ]: 
85888 

Umsatz 2: 
1% 

Kosten 2: 
D 


mm: dene un ma HR Gm Em Ami wem Dun an due rn me ee vn wm 


Ergebnisse B 
und Gewinnschuwe Ile 


Fıxe Kosten: 
Vorıable Kosten: 


Grenzumsatz: 


"mm det au gu mm nme HERE rum Ana arm GH EHRE Gib Are auumt ueme mar diene 
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Gewinng le ıche A-B 


= mm wm nm dem ann ame qua (mim Gun dumme drmib Green (amt aim Dummd Guns aaue 


Umsatz: 
123758 

Kosten: 
195188 

Gewinn: 
18562 


Verf. A ım Vorteil 


"ae ae um dumm Gmem Dem emias ment Geb Gruss Simes Amen dead GES (Dem Game man Gm 


Beispiele zu 3.5 
Verfahrensvergleich 


Gewinn/Verlust A 
Umsatz: 

ı5BBBR 
Fıxe Kosten: 

493588 
Varıable Kosten: 

67588 
besamtkosten: 

ı17BBR 
Gewinn/Verlust: 

33888 


„en mer Amen num mm Gem (ie fuer Germb armen Una Gmb dmman Gemms geums Gimme amme Sams 
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Gewinn/Verlust B 
Umsatz: 

1580888 
Fiıxe Kosten: 

1%) 

Varıable Kosten: 

1275BB 
besamtkosten: 

127588 
Gewinn/Verlust: 

225BB 


Su Gb dm Gmb mi Ara Gun Gum am des Gmb Zus bmmb Gem dr Amp gun Gum 


3.6 Verteilungsoperationen 


Im innerbetrieblichen Rechnungswesen haben wir laufend mit Kostenumlagen zu tun. 
Diese Verteilungen richten sich dabei meist nach veränderlichen Vorgaben und nur selten 
nach fixen Grundlagen. In beiden Fällen kommt es aber darauf an, eine bestimmte Sum- 
me nach einem vorgegebenen Schlüsse! zu verteilen. Die aus einer Reihe einzelner Schlüssel- 
werte bestehende Verteilungsgrundlage schöpft ihre Werte aus Soll-Vorgaben und ist die 
Basis für die Umlage von Ist-Ergebnissen; eine solche Verteilung ist schließlich auch die 
Prozentverteilung. Die Grundlage sind eine Reihe von Einzelwerten, und die zu verteilen- 
de Summe ist die Zahl 100. 

Die Berechnung eines zu verteilenden Einzelwertes hat sich also an der Größe des kor- 
respondierenden Schlüsselwertes und am Verhältnis der zu verteilenden Gesamtsumme 
zur Gesamtsumme der Schlüsseleinzeiwerte zu orientieren: 


V . 

S ‚ 
— Schlüsseleinzelwert 
Summe der Schlüsseleinzelwerte 
einzelner zu verteilender Wert 
— gesamte zu verteilende Summe. 


z<wn 
| 


Die Verteilung kann mit unterschiedlich vielen Dezimalstellen vorgenommen werden, was 
in den beiden Verteilungsbeispielen zum Ausdruck kommt. 


Eine entsprechende Einstellung ist im Zuge des Programmverlaufs möglich. Die Dezimal- 
stellenanwahl kann auch getrennt von den übrigen Verarbeitungen vorgenommen wer- 
den. Bei Verteilungen lassen sich die Summen nicht immer exakt aufteilen. So ist in 
diesem Programm vorgesehen, daß Differenzen immer dem Höchstwert der Reihe zuge- 
schlagen werden; dafür ist auch das Mitziehen eines Höchstwertes bei der Eingabe vorge- 
sehen. Sind mehrere Werte als Höchstwerte anzusprechen, wird die Summenkorrektur 
immer am ersten dieser Höchstwertreihe vorgenommen; dieser Umstand kommt im zwei- 
ten Verteilungsbeispiel einer Prozentverteilung zum Tragen. 

Es lassen sich auch mehrere Summen nach den gleichen Schlüsseln verteilen; ebenso kann 
die gleiche Summe mit unterschiedlichen Schlüsseln verarbeitet werden, ohne daß die 
Ausgangswerte neu eingegeben werden müssen. 
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Speicherorganisation 


— Anzahl der Einzelwerte 

— Dezimalstellenanzahl 

— Faktor aus V/S 

— Index 

— Korrektursumme der verteilten Einzelwerte 

— größter Einzelwert 

Hilfsspeicher 

— Eingabeposition 

— Schlüsselsumme 

— zu verteilende Summe 

— aktueller s-Einzelwert 

— Hilfsspeicher 

S(C) — eindimensionales Feld für die Schlüsseleinzelwerte 
V(C) — eindimensionales Feld für die zu verteilenden Einzelwerte 


NSES<WVZS RAT non 


IB: "KEYS":SCLEAR >: XKIKKKKKRKKKKU: 2568: INPUT "OK? ne ı 


20: 


39: 


S$="Schluessel RETURN n 1CENTER)"5Z: 
": T$="nechnung I1B:LPRINT "------ GOTO 348 
"sl$="Vertei lU 0... hemmen rs 27B: P=P+1:S=S+W:SC 
ng": PRINT S$;T RETURN P-1>=W: IF W>M 
$ 128: "ND":D=B: INPUT LET M=W:N=P-1 


KZ=1: INPUT "An 
ze:ıge 1/Druck 
2CENTER)";KZ 
IF cKZ<1)OR CK 
Z>2)OR (KZ-INT 


132: 


"Dezimalen = " 
;D 

IF cD<B)OR (D> 
S)OR (D-INT R< 
>B)>THEN 128 


288: IF P>CTHEN 318 
298: INPUT "Weiter? 


nein 1CENTER) 
"32:G0T0O 318 


388:G0OTO 218 


KZ<>B)ITHEN 28 148: END 318B:PRINT "Ende";P 
ad. IF K2=2THEN 78 158: "X":C=2: INPUT “15” Eingaben" 
58:PRINT "(CDEF> D "Anzahl Werte 328:P=P-1:1IF KZ=2 


6P: 


?7B: 


- Anzah! Dezı 
malen": PRINT " 
(DEF) X — Wert 
e maxımal" 
PRINT "CDEF> S 

- 13S5$5)'" eıng 
."SPRINT "CDEF 
) U - Summenve 
rte ı lung": END 
CSIZE 2:CDLOR 
B:LF 1:GOSUB 1 
AB:LPRINT S$;T 
$:G0OSUB 1BB:LF 
l:LPRINT "DEF 
Verarbe ıtung": 
GOSUB 118 


162: 


17B: 


180: 


19B: 


2BB: 


= "sC 

IF CcC<23OR (CC> 
SIYIYIOR (CC-INT 

C<>B)ITHEN 158 

nIM SCC), VCCH: 
END 

"S";PRINT "Eın 
gabe ";5S$; "wer 
te": M=9E-99:P= 
1:S=B 

IF KZ=1THEN 2] 
2 

LF 1:LFRINT S$ 
«LPRINT "Pos it 
ıon S-Wert 
:GOSUB 112 


GOSUB 11B: 
GOSUB (CD+S51)X1 
B:LPRINT "Summ 
e";3S:LF 4: 
USING :END 


338: G0OSUB (D+51)X1 


B:PRINT "S-Sum 
me ="5S:END 


348: IF KZ2=2LPRINT 


"Irrtum" 


358:G0T0 218 
368: "U":PRINT US$: 


IF S=BTHEN 188 


37B: INPUT "Verte ı! 


summe = ";UV 


388: IF CU=B)OR (VD 


8B:LPRINT "D - An 218:PRINT P;".S-We l1E1B-I>THEN 38 
z. DezımalenX% rt = "3 D 
- Werte maxıma 228: INPUT W 398: F=V/S: IF KZ=l 
1" 23B:CLS :IF KZ=1 THEN 418 
9SB:LPRINT "S - Sc THEN 268 aBBß:LF 1:LPRINT U$ 


12B: 


hl. eingebenV 
- Su.Verteılun 
9":GOSUB 112: 
LF 4:END 
LPRINT "XXXXKXX 


:USING "HHR#": 


LPRINT P; 


:GOSUB CD+5S12X1 


B:TAB S:LPRINT 
W:USING 


:LPRINT "Pos ıt 
ıon U-Wert" 
:GOSUB 118 


418:K=B: FOR 1=1T0 
P 
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a2B:VUCI>=INT (SCI) 488:60SUB (CD+5S1>Xl HR. #8": RETURN 
XFX10rD+.5)718 B:PRINT UVC) 54B:USING "HHHHRHRH 
AD: K=K+UVC]D: 498:NEXT I1:IF KZ=l H#.8##": RETURN 
NEXT I PRINT "U-Summe S5B: USING "EHHREHH 
43B: VUCN)=UCN)+U-K: ="SU:USING : H.#HH#". RETURN 
FOR 1=1T0 P END S6B:USING "EHREEHH 
a40: IF KZ=1THEN 47? 588:GOSUB 11B: HEHHE" RETURN 
1%) LPRINT "Summe" S7B: USING "HRHEHH, 
45B: USING "HRRR": sU:LF 4:USING HHEHRHH":S RETURN 
LPRINT ]; : END SBEB: USING "HHRRHH.H 
a4a568B:60SUB CD+S1>X1 SIR:USING "HHRHHHHH HHHHHR": RETURN 
RB:TAB S:LPRINT HHHHHR"S RETURN S9SB:USING "HHHH.8# 
UC1)3:6G0OTO 498 528: USING "HHHRHHHH KHEHHHR" RETURN 
a>7B: USING :PRINT I H4##. 8": RETURN 6BB: USING "HHR.HHH 
ı".Pos. ="; S3R: USING "HHHRRHH HHEHHH" RETURN 


Programmlisting 3.6 Verteilungsoperationen 


Bedienungsanleitung 


Das Programm kann mit oder ohne Drucker verwendet werden. 
1. Programm mit RUN (ENTER) oder RUN “KEYS (ENTER) starten. 
2. Kontrollanzeige 'Schluesselrechnung‘’ mit (ENTER) löschen. 
3. Bei Anzeige "Anzeige 1/Druck 2 (ENTER) _' über die weitere Fortsetzung entschei- 


den: 


3.1. 


3.2. 


Anzeige: 1 (ENTER) oder nur (ENTER) drücken und Ausgabe einer kurzen 
Verarbeitungsanleitung, wobei jede neue Zeile mit (ENTER) abzurufen ist. 
Nach Anzeige des letzten Hinweises verlöscht die Anzeige bis auf das Bereit- 
schaftssymbol. 

Druck: 2 (ENTER) drücken; nach einem Verarbeitungstitel wird eine kurze 
Verarbeitungsanleitung ausgedruckt; die Anzeige verlöscht bis auf das Bereit- 
schaftssymbol. 


4. Anwahl der Verarbeitung: 


4.1. 


4.2. 


4.3. 


4.4. 


Dezimalstellenzahl anwählen: (DEF) D drücken. Bei Anzeige ''Dezimalen = _" 
eine zwischen einschließlich O und 9 gelegene ganze Zahl eintasten und (ENTER) 
drücken. Erfolgt keine Einstellung, wird von Punkt 1 kommend mit O Dezimal- 
stellen, sonst mit der zuletzt benutzten weitergearbeitet. Die Anzeige verlöscht 
bis auf das Bereitschaftssymbol. 

Eingabe der Höchstzahl der Einzelwerte: (DEF) X drücken. Bei Anzeige ‘'An- 
zahl Werte=_' ganze zwischen 2 und 999 gelegene Zahl eintasten und (ENTER) 
drücken. Erfolgt nach der Anwahl keine Eingabe, gilt die Zahl 2 als angewählt. 
Die Anzeige verlöscht bis auf das Bereitschaftssymbol. 

Einspeicherung der Schlüsseleinzelwerte s: (DEF) S drücken. Anwahlkontroll- 
anzeige "'Eingabe Schluesselwerte’”’ mit (ENTER) löschen und bei Punkt 5 
(Anzeige) bzw. Punkt 11 (Druck) fortsetzen. 

Eingabe der zu verteilenden Summe: (DEF) V drücken. Kontrollanzeige ''Ver- 
teilung‘ mit (ENTER) löschen und bei Punkt 12 (Anzeige) bzw. 14 (Druck) 
fortsetzen. Waren noch keine Schlüsseleinzelwerte eingegeben worden, wird 
Punkt 4.3. automatisch angesteuert, um das Versäumte nachzuholen. 


5. Bei Anzeige "N.S-Wert = '' (ENTER) drücken. 
6. Bei Anzeige ’'N.S-Wert = ?"’ Schlüsseleinzelwert s eintasten und (ENTER) drücken. 
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7. 


10. 
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Bei Anzeige “OK? nein 1 (ENTER) _" über die weitere Fortsetzung entscheiden: 


7.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und Ein- 
gabe ab Punkt 5 wiederholen. 
7.2. Eingabe in Ordnung: (ENTER) ohne vorangehende Zahleneingabe drücken. 


. Bei Anzeige ''Weiter? nein 1 (ENTER) _’ über die weitere Fortsetzung entscheiden: 


8.1. Eingaben fortsetzen: (ENTER) ohne vorangehende Zahleneingabe drücken und 
nächste Eingabe ab Punkt 5 vornehmen. Sind alle möglichen Eingabepositionen 
ausgeschöpft, wird automatisch bei Punkt 9 fortgesetzt. 


8.2. Eingaben beenden: Beliebige Zahl eintasten und (ENTER) drücken. 


. Anzeige ‘'Ende N Eingaben” mit (ENTER) löschen. 


Mit dem Löschen der Summe der Eingaben (Schlüsselsumme) und dem Verbleiben 
des Bereitschaftssymbols ist die Eingabe beendet. Eingabe Verteilsumme ab Punkt 4 
bzw. 4.4. anwählen. 


11. Ausdruck einer kurzen Verarbeitungsanleitung und Eingabe der Schlüsseleinzelwerte 
s in Übereinstimmung mit den Punkten 5-9 vornehmen, wobei nur folgende Ver- 
schiedenheiten zur Anzeige auftreten: 

— Kontrollausdruck der Eingaben in Punkt 6, 
— Textausdruck “Irrtum” in Punkt 7.1. 
— Ausdruck der Endsumme in Punkt 9. 

12. Kontrollanzeige "Verteilung‘ mit (ENTER) löschen. 

13. Bei Anzeige “Verteilsumme = _' aufzuschlüsselnden Zahlenwert (Verteilsumme) ein- 
tasten und (ENTER) drücken; die Einzelergebnisse werden jeweils mit (ENTER) ab- 
gerufen und in der Form "N.Pos. = "' bzw. "'N.Pos. = NNNN’” angezeigt. Bei Betäti- 
gung der Taste (ENTER) ohne vorangehende Zahleneingabe wird die zuletzt einge- 
speicherte Verteilsumme nach einem neuen Schlüssel aufgeteilt; z.B. bei mehrmaligen 
Prozentverteilungen ist die neuerliche Eingabe der Zahl 100 als Verteilsumme nicht 
erforderlich. 

14. Vorgangsweise analog Punkt 12 und 13 wählen mit dem Unterschied, daß die Er- 
gebnisse selbsttätig ausgedruckt werden. In beiden Fällen verlöscht die Anzeige bis 
auf das Bereitschaftssymbol, beim Druck nach einem vorangehenden mehrmaligen 
Zeilenvorschub. 

KKRRPRCKRRRRRKKKKK. Sch luessel Verteilung 

Sch luesselrechnung Position S-Wert Position U-Wert 

KKKKKKKKKKKKKKKKHT 1-2 ---------- 00mm 

oo. l 256.888 l 41.838 

DEF Verarbe ı tung 2 256.P0B 2 41.838 

See ee 3 256.228 3 16.348 

D - Anz. Dezimalen Irrtum Tem 

x - Werte maxımal 3 129.088 Summe 19A9.DRD» 

S - Schl. eingeben ---------------- -- | 

U - Su.Verteı lung Summe 612.PPB8 Verteilung 

22222222... 0. 0.0.0- Position U-Wert 

l 41.9 

Beispiele zu 3.6 2 41.8 

3 16.3 


Verteilungsoperation 


Cum um mn man (mm Gm Gem (nen Duse Dme des (MER unn Gem dmam Gumr gun gun 
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3.7 Wärmerechnung 1 


Die Verteuerung sämtlicher Energieformen zwingt zu verstärkten Überlegungen hinsicht- 
lich der richtigen Materialwahl im Hochbau. Für den Wärmehaushalt ist größter Wert auf 
einen optimalen Wandaufbau zu legen. Um hier eine Unterstützung für eine wiederholte 
Kontrolle einer Wandkonstruktion zu bieten, wurde dieses Programm geschrieben. 


Eine Wand besteht in den seltensten Fällen aus nur einem Material. Im einfachsten Fall 
ist mit einer beidseits verputzten Konstruktion zu rechnen. Heutzutage wird generell viel- 
fältiger gearbeitet und eine Wand aus einer Reihe unterschiedlicher Schalen aufgebaut, die 
zusätzlich noch durch Luft- oder Isolierschichten unterbrochen sind, um den Wärmefluß 
weitestgehend einzudämmen. Dabei sind nicht nur Fragen der Wärmedämmung, sondern 
auch der Wärmespeicherung zu lösen. 

In dem vorliegenden Programm kann mit 28 vorgegebenen Materialien oder mit nahezu 
beliebig vielen anderen gearbeitet werden. Außerdem ist es sicher sinnvoll, im Bedarfs- 
fall die hier angeführte Liste von 28 Standardmaterialien durch individuelle Standard- 
materialien zu ersetzen, wobei man sich auch an die Zahl 28 nicht unbedingt sklavisch 
halten muß. 

Die Standardmaterialien, die nachstehend aufgelistet werden, setzen sich aus 3 Luft- 
schichten mit fest eingestellten Schichtdicken zusammen, für welche nicht die Leitfähig- 
keit in W/m?K angegeben ist, sondern der jeweilige Kehrwert m? K/W. Für Luftschichten 
kann innerhalb dieser 3 Gruppen eine Abhängigkeit von der Schichtdicke nicht nachge- 
wiesen werden. Für die restlichen Materialien finden Sie die Leitfähigkeiten in der Speicher- 
organisation aufgezeichnet. Was eine allfällige Änderung der Standardleitfähigkeiten be- 
trifft, so sind die Speicheranweisungen durch den Einschub zusätzlicher Programmzeilen 
entsprechend zu erweitern, wenn mit mehr Materialien als 28 oder mit längeren Zahlen- 
werten gearbeitet wird. 

Dieses Programm kann sich zusammen mit dem folgenden zugleich im Speicher befinden; 
in diesem Fall sind allerdings folgende Änderungen in der Bedienung vorzunehmen: 


Anstelle (DEF) J ist RUN 70, 
anstelle (DEF) K ist RUN 21, 
anstelle (DEF) L ist RUN 250 und 
anstelle (DEF)S ist RUN 340 


zu drücken; das Programmlisting braucht nicht unbedingt verändert zu werden. Allerdings 
ist zu empfehlen, die entsprechenden Marken "'J", "K", "L’ und "S’' aus den genannten 
Zeilen zu entfernen, wenn an einen Parallelbetrieb beider Programme gedacht wird. 


Das vorliegende Programm ermöglicht folgende Berechnungen: 


© Berechnung des Wärmedurchgangskoeffizienten k (W/m?K) für eine mehrschalige 
Wand nach Vorgabe der Gesamtwandstärke und der einzelnen Schalendicken. 

© Berechnung der Wärmeleitfähigkeit einer Restschale nach Vorgabe der Gesamtwand- 
stärke und der Materialwahl und Schalenstärke einiger Schalen. Die Auswahl der in- 
frage kommenden Materialien erfolgt im Schwankungsbereich von # 10 % der berech- 
neten Leitfähigkeit (W/mK). 

® Berechnung der Gesamtwandstärke nach Vorgabe eines k-Wertes für die gesamte Wand- 
konstruktion und Vorgabe der Materialien und Schalenstärken für die weniger wichtigen 
Schichten. 
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Formelmechanismus 
1. Wärmeübergangskoeffizienten: 


Außenwand: a, = 20 (W/m? K) 
Innenwand: a= 7 (W/m? K) 


2. Wärmedurchlaßwiderstand: 


= 1/a, + Ua+), SK/Ax (m? K/W) 


3. Wandstärke: 
Ss. = Ay (1/Kk= N (m) 


A. Wärmeleitfähigkeit: 
A, = sK/{1/Kk- A) (W/mK) 


Speicherorganisation 


— k-Wert (W/m?K) 

— Gesamtwandstärke (cm) 

— Summe Schalenstärken 

— Index 

— Schalenzähler 

— Materialcode (1 bis X) 

— Einzelschale, Restschale 
Summenspeicher Wärmedurchlaßwiderstand 
— Hilfsspeicher 

— Zielleitfähigkeit nach Berechnung 
— Anzahl der Leitfähigkeiten 

— Index 

— Hilfsspeicher 

(X) — Leitfähigkeiten (W/mK) 


N<XxXcHzsttrtion 
| 
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Code 


oo SO BON - 


26 
27 
28 
29 
30 


Material 


Luftschicht 1 cm 

Luftschicht 2 cm 

Luftschicht 5 cm 

Zementmörtel 

Kalk-/Zementmörtel 

Gipsmörtel 

Isoliermörtel 

Schwerbeton bis B12 

Schwerbeton B12 bis B16 

Schwerbeton über B16 (Stahlbeton) 
Leichtbeton L 4 

Leichtbeton L 5 

Leichtbeton L 6 

Leichtbeton L 8 

Leichtbeton L 1® 

Leichtbeton L 12 

Leichtbeton L 14 
Leichtbeton-Zwei-Kammer-Hohlblock (1090) 
Leichtbeton-Drei-Kammer-Hohlblock (1490) 
Leichtbeton-Drei-Kammer-Hohlblock (1690) 
Volltonziegel (1000) 

Volltonziegel (1200) 

Volltonziegel (1490) 

Porotonziegel (800) 

Holz (Fichte, Kiefer, Tanne) 

Hoizfaserplatte (300) 

Holzwolleplatte (459) 

Glaswolle, Steinwolle, Schäume (bis 100) 
Wärmeübergangswiderstand außen 1/2® 
Wärmeübergangswiderstand innen 1/7 
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A {m? wiK) A (W/mK) 





Die Klammerwerte bei den Materialangaben beziehen sich auf die Materialrohdichte in 


kg/m?. 


Wegen der umfangreichen Ein- und Ausgaben ist nur der Betrieb mit Drucker vorge- 


sehen. 
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18: 


2B: 


38: 


40: 


Sp: 


6P: 


?7B: 


8P: 
9B: 


122: 


"WAMI":CSIZE 2 
:COLOR B:CLEAR 
:S$="Waermerec 
hnung 1":T$='"%X 
xr'":u$=" "; 

PRINT T$;U$;S$ 


U$; T$:LF ] 
GOSUB SB: 
LPRINT " "5S$: 


GOSUB S5B:LF 1: 
LPRINT "DEF Ve 
rarbe ıtung": 


GOSUB 6B: 
LPRINT "J - Le 
ıt faeh ı9- 
LPRINT " ke 
iten eıngeb.": 
LPRINT "K - K- 


Wert rechnen": 


LPRINT "L - Le 
ıt faeh ıg-" 
LPRINT " ke 


ıt rechnen": 
LPRINT "S - Wa 
ndstaerke": 
LPRINT " re 
chnen'":GOSUB 6 
B:LF 4:END 
LPRINT "XXXXXX 
XKKKKKKKIKKRKK": 
RETURN 

LPRINT "------ 
RETURN 
"J":sCLEAR :Z=] 
: INPUT "L: Ser 
te 1/Eıgen 2CE 
NTER»"3Z:IF <(Z 
<1)3OR (Z>2)OR 
Z-1INT 2<>8) 
THEN ?B 

IF Z=2THEN 1498 
x=3B:DIM L(CXD: 
LC1)=.14:L(C2)= 
.16:L(3)=.18:L 
(4)=1.4:L(5)=. 
87:L(C6)=.? 
L(?7)=.12:L(8)= 
1.5:L(9)=2.1:L 
(18)=2.3:L(11) 
=.19:L(12)=.19 
:L(C13)=.23:L(C]1 
4)=.29 


:LC159=.35:L(16 


)=,4565:L(1>)=. 
58:L(18)=.44:L 
19)=.49:1L(C2B8) 


12P: 


13B: 


14B: 


15B: 


160: 


172: 
18B: 
192: 


288: 


212: 


222: 
23B: 


242: 


25B: 


2608: 


272: 


28B: 


=,56:L(21)=.46 
LC22)=.52:L(23 
)=,61:L(24)=.4 
1:L(C25)=.14:LC 
26)=.858:1L(2?) 
=,.893 
LC28)=.B41:L(2 
9)=1/7?7:L(3B)=. 
B5:G0OTO 198 
INPUT "Zahl Le 
ıtfaehıgk.= "5; 
x:1IF CcX<1DOR ( 
x>99)0R (X%-INT 
X<>ADTHEN 148 
DIM LCX)I:FOR Y 
=1T0 X 

PRINT "Leıtfae 
higkeit";5Y;5" = 


3 
INPUT L(Y) 
CLS :NEXT Y 
LF 1:LPRINT "L 
eıtfaehıgak. MW 
/mK":GOSUB 682: 


FOR Y=1T0 X 
LPRINT "LC"5 
USING "HRRR"SY 


s)="5USING "# 
HERHR.HHR"SLCY 
USING :NEXT 
Y:GOSUB 6B:LF 
4: END 
"KYENs='" 
K-Wert ': GOSUB 
4398: GOSUB 45B: 
GOSUB 498 
IF H>=GTHEN 24 
2 
GOSUB 58B:GOTO 
228 
F=1INT C1/NXI1E3 
+, 5)7/1E3: GOSUB 
69:GOSUB 6382: 
GOSUB 64B:LF 4 
‘END 
"LIIN$=" Leit 
faeh ıgke it": 
GOSUB 432: 
GOSUB 452: 
GOSUB 47: 
GOSUB 498 
INPUT "Weıter”? 
neın 1(CENTER) 
"32:GOTO 288 
GOSUB 582: GOTO 
260 
M=G-H:U=M/C (17 


298: 


3DB: 


312: 


328: 


338: 


348: 


352: 


36B: 
372: 


38B: 


385: 


398: 


aBß: 


418: 
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F-N)X1BBI:U= 
INT CUXIE3+.I) 
-1E3 
LPRINT "Rest 
?"3USING "HHRH 
HHRHB.#",M 
H=H+M: GOSUB 6B 
:GOSUB 63B: 
GOSUB 6428: 2=U: 
GOSUB 65B:LF 1 
:LPRINT "Moegl 
ıche Codes": 
GOSUB 6B:FOR |] 
=4T0 28 
IF (U<.9XLC1D) 
OR (U>1.1XLCII 
>THEN 338 
LPRINT "Code:" 
USING "HHR";T] 
»Z=L(C]1): T=N+M/ 
C1BBXLCIDI:F= 
INT (C1I/TXI1E3+. 
SY/1E3:G0OSUB 6 
49: G0SUB 658 
NEXT I:LF 4: 
END 
"S"zN$=" 
J3-Stoaerke": 
GOSUB 4382: 
GOSUB 478:G=9E 
99:G0OSUB 498 
INPUT "Weiter? 
nein 1(CENTER) 
":2:G0TO 378 
GOSUB 588:GOTO 
35B 
INPUT "Code = 
"sL 
$] 
IF (L<4)0OR <(L> 
*-2)OR (L-INT 
L<>B)ITHEN 378 
IF LCL>=BTHEN 
37B 
M=1BRXLCLIXKCI/ 
F-ND:M=INT (MX 
IE3+.SI/1E3 
LPRINT "Sch."; 
USING "HHRR"SL 
ı" =";USING "# 
KEHHR.#"5M: Z=L 
(L):GOSUB 68:H 
=H+M: GOSUB 632 
:GOSUB 64: 
GOSUB 658 
INPUT "Schale? 
Ja 1CENTER>"; 
ZSH=H-M:LF 1: 


Wan 
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GOTO 37B 
a2B:LF 4:END 
438:H=B:K=1:N=177?7+ 

1728: PRINT NS: 

LF 1:6G0SUB 58 
448:LPRINT " Be 

rechnung": 

LPRINT N$: 

GOSUB SB: 

RETURN 
452: INPUT "Wandsta 

erke (cm) = "; 

G 
468: RETURN 
478: INPUT "K-Wert 

(W/m2K) = ";F 
488: RETURN 
498:LF 1:LPRINT "S 

ch. Code 

cm":GOSUB 68 
SBB:PRINT K5;":Code 


u} 
— E 


512: INPUT L 

S2B:CLS :IF (L<)DD 
OR (CL>X-ZIOR C 
L-INT L<>B) 
THEN 588 

525: 1F LCL>I=BTHEN 
52 

538: IF L>3THEN 568 

54B:M=L:IF L=3LET 
M=5 

558:GOTDO 598 

S6B:PRINT K;":cm = 


3 

S7B: INPUT M 

S8B:CL5 : IF (M<)) 
OR cM>9III)OR 
C1RAXM-INT (18% 
M><>B)THEN 568 

5398: USING "HERR": 
LPRINT K; USING 
"HRHRR"SL; 
USING "HRRHHRE 


Programmlisting 3.7 Wärmerechnung 1 


Bedienungsanleitung 


3 Praktische Anwendung 


#.#"5;M2 USING 
628: INPUT "OK? neı 
n 1CENTER)"5Z: 
LPRINT "Irrtum 
":6G0OTO 5822 
612: H=H+M:K=K+1: IF 
CL>=1DAND (L<= 
3>LET N=N+L(CL) 
: RETURN 
628: N=N+M/C1IBOAXLCL 
>>: RETURN 
638:LPRINT "Wand ( 
cm) ="5USING " 
BHHER.H"SH: 
USING :RETURN 
64B:LPRINT "K (W/m 
2K) =";USING " 
BRH.HHR"SF: 
USING : RETURN 
65B:LPRINT "L <W/ 
mK) ="3USING " 
BHH.HHR" SZ: 
USING :<RETURN 


1. Programm mit RUN (ENTER) oder RUN “WAM1“ (ENTER) starten. 


2. Programmanwahlkontrollanzeige 


.“ 


*»** Waermerechnung 1 ***‘ mit (ENTER) 


löschen; Ausdruck eines Verarbeitungstitels und einer kurzen Verarbeitungsanleitung. 
Der Programmvorlauf ist mit einem mehrfachen Zeilenvorschub beendet, worauf die 
Anzeige bis auf das Bereitschaftssymbol verlöscht. 


3. Verarbeitungsanwahl: Von Punkt 1 kommend ist die Eingabe der Leitfähigkeiten als 


erstes abzuwickeln. 


3.1. Leitfähigkeiten eingeben: (DEF) J oder RUN 7® drücken und bei Punkt 4 


fortsetzen. 


3.2. k-Wert einer Wandkonstruktion rechnen: (DEF) K oder RUN 21® drücken und 
bei Punkt 5 fortsetzen. 
3.3. Leitfähigkeit einer Restschale berechnen: (DEF) L oder RUN 25® drücken und 
bei Punkt 12 fortsetzen. 
3.4. Gesamtwandstärke aus einer Restschale berechnen: (DEF) S oder RUN 340 
drücken und bei Punkt 21 fortsetzen. 


4. Bei Anzeige °L: Serie 1/Eigen 2 (ENTER) _‘ über die Art der Leitfähigkeitseingabe 


entscheiden: 


4.1. Serienmäßig vorgegebene Leitfähigkeiten abrufen und einspeichern: 1 (ENTER) 
oder nur (ENTER) drücken; die Leitfähigkeiten werden eingespeichert und zur 
Kontrolle ausgedruckt. Der Vorgang wird mit einem mehrmaligen Zeilenvor- 
schub abgeschlossen, worauf die Anzeige bis auf das Bereitschaftssymbol ver- 


löscht. 


4.2. Eingabe von Sonderleitfähigkeiten: 2 (ENTER) drücken. 
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4.3. Bei Anzeige ‘Zahl Leitfaehigk. = _'' ganze zwischen einschließlich 1 und 99 
liegende Zahl eintasten und (ENTER) drücken. 

4.4. Bei Anzeige “Leitfaehigkeit N = ‘' (ENTER) drücken. 

4.5. Bei Anzeige “Leitfaehigkeit N = ?" Wert eintasten und (ENTER) drücken. Ein- 
gaben so lange fortsetzen, bis alle Werte eingegeben sind und die Eingaben zur 
Kontrolle in einem aufgelistet werden. Darauf erfolgt ein mehrfacher Zeilen- 
vorschub, und die Verarbeitung ist mit dem Verlöschen der Anzeige bis auf das 
Bereitschaftssymbol beendet. Fortsetzung in Punkt 3 anwählen. 


5. Kontrollanzeige "'K-Wert‘ mit (ENTER) löschen; Ausdruck einer Titelzeile. 


11. 


15. 
16. 


17. 
18. 


. Bei Anzeige “Wandstaerke (cm) = _‘' Gesamtwandstärke in cm eintasten und (ENTER) 


drücken; Ausdruck eines Verarbeitungstitels. 


. Bei Anzeige ‘N: Code = " (N = laufende Schalennummer) (ENTER) drücken. 
. Bei Anzeige “'N: Code = ?" Code des gewünschten Materials eintasten und (ENTER) 


drücken. Es werden nur ganze zwischen einschließlich 1 und X liegende Zahlen ange- 
nommen: andere Eingaben sind unzulässig und führen zu Punkt 7 zurück. Anwahl der 
Codes 1 bis 3 führt nach dem Kontrollausdruck der Eingabe zur Fortsetzung in Punkt 
11. 


. Bei Anzeige N: cm = " (ENTER) drücken. 
10. 


Bei Anzeige ‘N: cm = ?'' Wandstärke der angezeigten Schale eintasten und (ENTER) 

drücken; Kontrollausdruck der Eingabe. 

Bei Anzeige “OK? nein 1 (ENTER) _‘ über die weitere Fortsetzung entscheiden: 

11.1 Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und nach 
dem Textausdruck “Irrtum‘‘ Eingabe ab Punkt 7 wiederholen. 

11.2. Eingabe korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken und für 
den Fall, daß die Gesamtwandstärke noch nicht erreicht ist, Werte der nächsten 
Schale ab Punkt 7 eingeben. Andernfalls erfolgt die Absummierung und Er- 
gebnisausgabe selbsttätig. Hierauf verlöscht die Anzeige bis auf das Bereit- 
schaftssymbol. 


. Kontrollanzeige “Leitfaehigkeit‘‘ mit (ENTER) löschen; Ausdruck eines die folgende 


Verarbeitung einleitenden Textes. 


. Bei Anzeige ‘‘Wandstaerke (cm) = _'' Gesamtwandstärke in cm eingeben und (ENTER) 


drücken; Ausdruck eines Verarbeitungstitels. 


. Bei Anzeige "K-Wert (W/m?K) =_“ Wert für den Wärmedurchgangskoeffizienten 


eintasten und (ENTER) drücken; Ausdruck der Titelzeile für die tabellarisch ent- 
sprechend gestaltete Eingabedokumentation. 

Bei Anzeige “N: Code = “' (N = laufende Schalennummer) (ENTER) drücken. 

Bei Anzeige “N: Code = ?'' Code des gewünschten Materials eintasten und (ENTER) 
drücken. Es werden nur ganze zwischen einschließlich 1 und X liegende Zahlen ange- 
nommen; andere Eingaben sind unzulässig und führen zu Punkt 15 zurück. Bei An- 
wahl der Codes 1 bis 3 wird nach einem Kontrollausdruck der Eingabe bei Punkt 19 
fortgesetzt. 

Bei Anzeige “N: cm = “ (ENTER) drücken. 


Bei Anzeige “N: cm = ?“ Wandstärke der angezeigten Schale eintasten und (ENTER) 
drücken; Kontrollausdruck der Eingabe. 
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20. 


21. 


22. 


23. 
24. 


25. 
26. 


27. 


28. 


3 Praktische Anwendung 


. Bei Anzeige “OK? nein 1 (ENTER) _ über die weitere Fortsetzung entscheiden: 


19.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und nach 
dem Textausdruck “Irrtum’’ Eingabe ab Punkt 15 wiederholen. 

19.2. Eingabe korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken und für 
den Fall, daß die Gesamtwandstärke noch nicht erreicht ist, Werte der nächsten 
Schale ab Punkt 15 eingeben. Andernfalls erfolgt die Absummierung und Er- 
gebnisausgabe selbsttätig. Dann verlöscht die Anzeige bis auf das Bereitschafts- 
symbol. 

Bei Anzeige ‘'Weiter? nein 1 (ENTER) _” über die weitere Fortsetzung entscheiden: 


20.1. Weitere Schalen eingeben: Nur (ENTER) drücken und nächste Eingabe ab 
Punkt 15 aufnehmen. 

20.2. Restschale berechnen: Beliebige Zahl eintasten und (ENTER) drücken. Nach 
der Ergebnisausgabe werden für die errechnete Leitfähigkeit Materialvorschläge 
ausgedruckt und die daraus sich ergebenden k-Werte und Leitfähigkeiten neu 
berechnet und ausgegeben. Dann verlöscht nach einem mehrfachen Zeilenvor- 
schub die Anzeige bis auf das Bereitschaftssymbol. 

Kontrollanzeige “'Wand-Staerke‘”‘ mit (ENTER) löschen und Ausdruck eines die 

folgende Verarbeitung einleitenden Textes. 

Bei Anzeige “K-Wert (W/m?K) = _“ Wert für den Wärmedurchgangskoeffizienten ein- 

tasten und (ENTER) drücken; Ausdruck einer Titelzeile für die nachfolgende Doku- 

mentation der Eingaben. 

Bei Anzeige “N: Code = “ (N = laufende Schalennummer) (ENTER) drücken. 

Bei Anzeige °'N: Code = ?’”’ Code des gewünschten Materials eintasten und (ENTER) 

drücken. Es werden nur ganze zwischen einschließlich 1 und X liegende Zahlen ange- 

nommen; andere Eingaben sind unzulässig und führen zu Punkt 23 zurück. Bei An- 

wahl der Codes 1 bis 3 wird nach einem Kontrollausdruck der Eingabe bei Punkt 27 

fortgesetzt. 

Bei Anzeige “N: cm = ‘' (ENTER) drücken. 


Bei Anzeige N: cm = ?'' Wandstärke der angezeigten Schale eintasten und (ENTER) 
drücken; Kontrollausdruck der Eingabe. 


Bei Anzeige "OK? nein 1 (ENTER) _‘ über die weitere Fortsetzung entscheiden: 


27.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und nach 
dem Textausdruck ‘Irrtum’ Eingabe ab Punkt 23 wiederholen. 

27.2. Eingabe korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken und für 
den Fall, daß die Gesamtwandstärke noch nicht erreicht ist, Werte der nächsten 
Schale ab Punkt 23 eingeben. Andernfalls erfolgt die Absummierung und Er- 
gebnisausgabe selbsttätig. Dann verlöscht die Anzeige nach einem mehrfachen 
Zeilenvorschub bis auf das Bereitschaftssymbol. 

Bei Anzeige "Weiter? nein 1 (ENTER) _ über die weitere Fortsetzung entscheiden: 

28.1. Weitere Schalen eingeben: Nur (ENTER) ohne vorangehende Zahleneingabe 
drücken und nächste Eingabe ab Punkt 23 aufnehmen. 

28.2. Restschale berechnen: Beliebige Zahl eintasten und (ENTER) drücken. 
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29. Bei Anzeige “Code = _’’ gewünschten Materialcode ganzzahlig zwischen einschließlich 
1 und X eintasten und (ENTER) drücken. Für dieses Material wird die Schalenstärke 
(Restschale) berechnet und mit der neuen Gesamtwandstärke, dem k-Wert der Wand 


und der Leitfähigkeit des gewählten Materials ausgedruckt. 


30. Bei Anzeige "Schale? ja 1 (ENTER) _’ über die weitere Fortsetzung entscheiden: 


30.1. Als Variantenrechnung weiteren Materialeinsatz prüfen: Beliebige Zahl ein- 
tasten. (ENTER) drücken und bei Punkt 29 fortsetzen. 

30.2. Berechnungen beenden: (ENTER) ohne vorangehende Zahleneingabe drücken. 
Nach einem mehrfachen Zeilenvorschub verlöscht die Anzeige bis auf das Be- 
reitschaftssymbol. Weitere Berechnungen ab Punkt 1 oder 3 aufnehmen. 

Die Testbeispiele wurden unter Verwendung der Standardleitfähigkeiten durchgerechnet. 
In den Berechnungen der Leitfähigkeit erkennt man in den Materialien 18 und 24, daß 
nicht exakt vergleichbare Wärmewerte vorliegen und sich daher der k-Wert der Wand ge- 
ringfügig bei Material 18 ändert. In den Berechnungen der Wandstärke erkennen wir den 
Einfluß weniger dämmenden Materials in der Zunahme der Gesamtwandstärke. 


KKKKKKKKKKKKKKKKTK 
Waermerechnung 1 
KKKKKKKKKKKKKKKKKK 


DEF Verarbe ıtung 

J = Leıitfaehıg- 
keiten eıngeb. 

K- K-Wert rechnen 

L - Leitfaeh ıg- 
keit rechnen 

S - Wandstaerke 


rechnen 
KKKKKKKKKKKKKKKKKK 
Berechnung 
K-Wert 
KKKKKKKKKKKKKTKKKK 
Sch. Code cm 
1 5 1.5 
2 5 1.5 
Irrtum 
2 12 25.B 
3 3 5.8 
4 24 17.8 
5 7 2.8 
Wand (cm) = 5d.5 
K cW/m2K) = B.437 


Leitfaehıoak. W/mK 


“<-> um sum Gum um Gum Hmm Geis Gun inne (une Amt m Gmb Gun Gunn Genen Wems 


L( 1)= A.148 
L( 2)= D.168 
L( 3)= n.188 
L( 4)= 1.4BB 
L( J9)= R.87B 
L( 6)= D.788 
L( 7)= B.128 
L( 8)= 1.588 
L(C I)= 2.188 
LC 1B)= 2.388 
LC 11)= 2.148 
LC 12)= 8.198 
LC 13)= n.230 
LC 14)= 0.298 
LC 15= 0.358 
LC 16)= n.465 
LLC 17)= D.S8B 
LC 18)= n.448 
LC 19= B.498 
LC 28)= 2.568 
LC 21)= n.468 
LE 22)= n.528 
LC 23)= D.61R 
LC 24)= B.41B 
LC 25)= R.148 
LC 26)= D.858 
LC 27)= D.833 
LC 28)= D.84]1 
LC 29)= n.142 
LC 3B8)= B.BS8 


KKKKKKKKKKKKKKKKKK 
Berechnung 
Leıtfaehıokeıt 
KIKKKKKKKKKKKKKKKK 
Sch. Code cm 

1 5 1.5 
2 12 25.8 
3 3 5.8 
4 7 2.8 
Rest ? 17.8 
Wand (cm) = 58.5 
K cW/m2K) = 8.437 
L _ <W/mk) = 8.4893 


Moeglıche Codes 


Code: 18 
K CW/m2K) = 9.443 
L <W/mK) = 8.448 
Code: 24 
K (W/m2K) = DB.437 
L <W/mK) = B.41B 
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KIKKKKKKKKKKKKKKKK Sch. 12= 7.9 Sch. 15 = 14.5 


Berechnung To. 000mm 
Wand-Staerke Wand (cm) = 41.4 Wand (cm) = 48.08 
KIKKKKKKKKKIKKTKKK K (W/m2K) = DB.437 K (W/m2K) = B.43) 
L (cWmk) = B.198 L <W/mK) = 8.358 
Sch. Code cm 
2 ---- ------------ Sch 14 = 12.8 Sch 16 = 19.3 
l 5 1.3 77-272 ------------ 000007777772 
2 12 25.08 Wand (cm) = 45.5 Wand (cm) = 52.8 
3 3 5.8 K CW/m2K) = B.437 K (W/m2K) = 8.437 
4 ? 2.8 L <UW/mk) = 8.298 L _ <CW/mk) = B.465 
Sch ll = 3.8 
2 -- ------- Sch 23 = 25.3 
Wand (cm) = 23 NT 
K cW/m2K) = 9.437 Wand (cm) = 58.8 
L <Wmk) = B.148 K CW/m2K) = DB.437 
L cWmK) = B.61B 


Beispiele zu 3.7 Wärmerechnung 1 


3.8 Wärmerechnung 2 


Als Weiterführung der im vorigen Beispiel eingeleiteten Wärmerechnungen von Wandauf- 
bauten wird im vorliegenden Programm das Wärmeverhalten ganzer Räume untersucht. 
Die einen Raum abschließenden Flächen werden dabei in zwei Gruppen geteilt: Die erste 
trennt den Raum nach außen ab und die zweite umfaßt die Trennwände zwischen anderen 
Räumlichkeiten. Allerdings bleibt es der Beurteilung des Benutzers überlassen, die Ein- 
stufung einer Bodenfläche zum Keller oder einer Deckenfläche zum Dach hin entsprechend 
vorzunehmen; die Einstufung wird über eine Anwahl im Programm ermöglicht. Man wird 
bei genauerer Rechnung sicherlich stärker abgestufte Wärmeübergangskoeffizienten an- 
setzen müssen; das vorliegende Programm eignet sich zur Grobabschätzung und müßte je 
nach Bedarf in einigen Punkten ergänzt werden. 


Auch in diesem Beispiel gehen wir von der Anwahlmöglichkeit der gleichen Standard- 
materialien aus und stellen es dem Benutzer frei, mit einer eigenen Einstellung eine andere 
Materialzusammenstellung zu wählen. Obwohl die Kapazität des PC-1500 unter Einbe- 
ziehung des 8 Kbyte RAM-Moduls recht groß geworden ist, beschränken wir die indi- 
viduelle Eingabe der Leitfähigkeiten auf 99 Materialien. 


Die Beurteilung des Wärmeverhaltens in Form einer Grobabschätzung verzichtet auch auf 
die Berücksichtigung der Mauerwerksöffnungen für Fenster und Türen. Dies ist ein Um- 
stand, der im Zuge einer genaueren Beurteilung entsprechend nachzutragen wäre. Die Ver- 
arbeitung läuft nach folgenden Grundsätzen ab: 


Die einen Raum abschließenden Wände und Decken bilden die Oberfläche eines Prismas. 
Die Fläche selbst wird 100 % gesetzt, die Anteile der einzelnen der 6 Trennfläche er- 
mittelt, und aus den Berechnungen der k-Werte dieser 6 Flächen wird das gewichtete 
Mittel bestimmt. Ebenso fällt hier ein allenfalls zu berücksichtigender Einfluß der Eckver- 
bindungen weg. Mit diesem Programm läßt sich aber dennoch eine gute Grobabschätzung 
durchführen; außerdem läßt sich dieses Lösungsverfahren individuellen Erfordernissen 
leicht anpassen. 


Die Wärmeübergangskoeffizienten einer Trennwand zwischen zwei Räumen werden gleich 
hoch angesetzt und zwar mit 1/7. 
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Leitfähigkeitstabelle und Speicherorganisation arbeiten nach den gleichen Vorgaben wie 
wir sie im Beispiel 3.7 bereits kennengelernt haben. Übernommen werden mußte aller- 
dings die Berechnung des k-Werts einer Wand; bei gleichzeitigem Abspeichern beider Pro- 
gramme unter den im letzten Beispiel angeführten Voraussetzungen hätte auf diesen Pro- 


grammteil bei der Wärmerechnung 2 verzichtet werden können. 


Obwohl die grobe Beurteilung des Wärmeverhaltens im Vordergrund steht, kann natürlich 
auch der k-Wert einer einzelnen Wand berechnet werden. Bei Raumbeurteilungen wird das 
Gesamtergebnis dann automatisch abgerufen, wenn die Gesamtfläche 100 % erreicht hat. 
Das gleiche gilt im Sinne von Variantenrechnungen, wenn eine Wandkonstruktion durch 
eine andere ersetzt wird, der Flächenanteil aber der gleiche ist. So kann sofort beurteilt 
werden, wie ein anderer Wandaufbau von nur einer Wand Einfluß auf das Wärmeverhalten 
des Raumes nimmt. Auch dieses Programm kann nur mit Drucker betrieben werden. 


12: "WAM2"SCLEAR : 


32: 


aß: 


Sp: 


BP: 


>B; 
82: 


S$="Waermerech 
nung 2", T$=!XX 
x": J$=" 2. 
PRINT T$;,U$;5$ 
U$; T$:CSIZE 2 
:COLOR B:LF 1 


:GOSUB AB: 


LPRINT " "3S$: 
GOSUB AB: LF 1: 
LPRINT "DEF Ve 
rarbe ıtung'": 


GOSUB SP: 
LPRINT "J - Le 
ıt faeh ız- 
LPRINT " ke 


ıten eıngehb.'”: 
LPRINT "K - K- 
Wert Wand": 
LPRINT "X - K- 
Wert Raum": 
GOSUB SPR:LF 4: 
END 

LPRINT "xXKXKXKXX 
XKKKXKKKKRXKU, 


RETURN 
"I"SCLEAR :Z2=l 
: INPUT "L: Ser 


'e 1/Eıgen 2(E 
NTER)"SZ:IF CZ 
<1DOR (CZ>2)0OR 
(Z-1INT Z2Z<>B) 
THEN 68 

IF Z=2ZTHEN 138 
x=38:DIM L(XD: 
LC1)=.14:LC2)= 


9P: 


\2B: 


112: 


12B. 


13B: 


‚16:L(3)=.18:L 
c4a)=1.4:L(5)=. 
87:L(6)=.7 
L(?7)=.12:L(8)= 
1.3LC9)=2.1:L 
(19)=2.3:LC11) 
=,14:L(12)=.19 
:L(139=.23:Lcli 
4)=,29 
LC15)=.35:L(16 
)=,465:1L(1>D)=. 
J8:LC18)=.Aa4;L 
(19)=.49:1L(28) 
=,56:L(21)=.46 
LC22)=.52:1L(23 
J)=,61:1L(024)=.4 
1:LC25)=.14:LC 
26)=.058:1L(27)9 
=, 993 
L(28)=.Q41:LC2 
9)=177:L(3R)=. 
95:60T0 188 
INPUT "Zah! Le 
ıt faehıgk.= "5; 


x 
IF CR<IDOR CX%> 


I3Y)0OR (X%-INT X 
<>BITHEN 13% 


:DIM LEXD:FOR Y 


=1T0 x 


‚PRINT "Leitfoe 


higkest",;Y, = 


9 
‚INPUT L(YD 
:CLS :NEXT Y 
:DIM G(6),K(6): 


LF 1:LPRINT "L 
eıtfaehıgk. W 
mK": GOSUB SER: 


1932: 


2B2: 


242: 


250: 


2/B: 


FOR Y=1T0 % 
LPRINT "Lc"; 
USING "HHHRTSY 
ı")="5USING "# 
HHHHR.HHRUTSLCY 
):USING :NEXT 
Y:GDOSUB SB:LF 
4: END 
"K";PRINT "K-W 
ert Wuand":LF 1 
: GOSUB 4B: 
LPRINT " Wa 
ndaufbau”: 
GOSUB AB: LF |]; 
LPRINT "DEF Wa 
ndart" 


:GDOSUB SB:FOR ] 


=1T0 6 


;QC1)=B:6GC])=BR: 


KCII=B:NEXT 1: 
1=2 


:LPRINT "A - Se 


ıtenwand 1: 
LPRINT "S - Se 
ıtenwand 2": 
LPRINT "D - Se 
ıtenwand 3" 


LPRINT "F - Se 
ıtenwand 4": 
LPRINT "G - De 
cke":LPRINT "H 
- Boden": 


GOSUB SB:LF 4: 
END 

"A"s J=1iu$="Wa 
nd 1":G0T0 31% 


"5": J=2:W$="Wa 


nd 2":G0T0 31 
"D"3 J=3:W$="Wa 
nd 3":G0T0 318 
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282: 
292: 
3BP: 
312: 
322: 
33B: 


3408: 
35B: 


36B: 
3>B: 


375: 


38B: 


39B: 


"FR": J=4;W$="Wa 
nd 4":GOT0D 312 
"G": J=I:W$="De 
cke":6G0TO 318 
"HH": J=6:W$="Bo 
Jen" 


PRINT W$;": cm 
= "; 

INPUT G 

CLS :PRINT "An 
teil "IW$)": 7% 
= ”; 

INPUT L 

CLS :1=1-G(CJD: 


IF <L<B)IOR (L> 
IBB)OR CI+rL>18 
BITHEN 31B 
I=I+rL:GCJ)=L 
LF 1:LPRINT W$ 
ı" Cc"53L53" 7%": 
GOSUB 42 

INPUT "ouss-ın 
nl/ınn- ınn2(CEN 
TER)" IWD 

IF <CWD<1DOR (W 
D>23OR CWD-INT 
WD<>B)ITHEN 375 
N=177+172B: V$= 
"aussen - ınne 
n": IF WD=S2LET 
N=277:V$=" Inne 
n = ınnen" 


4ppB: 


4]1D: 


422: 
43B: 


435: 


44B: 
aı5ß: 


462: 
47D: 


480: 
a92: 


5BP: 


Programmlisting 3.8 Wärmerechnung 2 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN ''WAM2“ (ENTER) starten. 


2. Kontrollanzeige "'*** Waermerechnung 2 ***’ mit (ENTER) löschen; es wird ein 
Verarbeitungstitel und eine kurze Verarbeitungsanleitung ausgedruckt. Nach dem 
Programmvorlauf erfolgt ein mehrfacher Zeilenvorschub zum bequemen Abtrennen 
des Druckstreifens, worauf die Anzeige bis auf das Bereitschaftssymbol verlöscht. 


3. Verarbeitungsanwahl: 


3.1. 


3.2. 


3.3. 


5 fortsetzen. 


LPRINT vV$:LF 1 
:LPRINT "Sch. 
Code cm" 
:GOSUB S5B:H=PB: 
K=1 

PRINT K; ":Code 


9 
INPUT L 
[LS :IF cL<1D 
OR (L>X-2230R ( 
L-INT L<>B) 
THEN 412 
IF LCLI=BTHEN 
412 
IF L>3THEN 472 
M=L: IF L=3LET 
M=5 
GCOTO 582 
PRINT K;":cm = 


3 
INPUT M 
[CLS : IF cM<1D 
OR CM>II99)0OR 
CIBXM-INT C12X 
MD<>RIOR CH+M> 
G>THEN 472 
USING THHRR": 
LPRINT K; USING 
HHHRR"SL; 
USING "HHREHHH 
4. #4", M. USING 
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S1B: 


52B: 


53R: 


54B: 
55ßB: 


56P: 
572: 


382: 


>92: 


INPUT "OK? ne ı 
n 1CENTER)"3OK 
:LPRINT "Irrtu 
m":GOTO 412 
H=H+M:K=K+1: IF 
(L>=1DAND (L<= 
3)LET N=N+L(L) 
:GOTO 54B 
N=N+M/C1BRXL CL 
I) 

IF H<GTHEN 412 
F=1NT C17/NX1E3 
+. 5) /1E3: GOSUB 
58:K(CJ)=F: 
LPRINT "Wand ( 
cm) =";USING " 
BHEEHRR.H"SH 
GOSUB 59B8:LF 4 
IF I<1BBEND 
"X'";LF 1: 
LPRINT "Durchg 
ong gesamt": 
GOSUB 4B:F=B: 
FOR Z=ITO 6 
F=F+KCZIXGCZ)7 
IRB:NEXT 2: 
GOSUB 59B:LF 4 
END 

LPRINT "K (CW/m 
2K) ="3USING " 
HER.SEHRUNF: 
USING :RETURN 


Leitfähigkeiten eingeben: (DEF) J oder RUN 68 eintasten, (ENTER) drücken 
und bei Punkt 4 fortsetzen. 
k-Wert einer Wand berechnen: (DEF) K oder RUN 20 drücken und bei Punkt 


k-Wert für einen Raum berechnen: (DEF) X oder RUN 570 drücken; der Zwi- 


schen- oder Gesamtstand der Berechnungen wird in Übereinstimmung mit dem 
Testbeispiel ausgedruckt. Dieser Punkt wird dann automatisch angesteuert, 
wenn alle Begrenzungsflächen eines Raumes eingegeben sind und die k-Werte 
berechnet wurden. Daraufhin kann im Sinn einer Variantenrechnung über 
Punkt 3.2 für eine Trennwand ein geänderter Wandaufbau gewählt und berech- 
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net werden, um neuerlich den k-Wert eines Raumes zu bestimmen. Nach einem 
mehrfachen Zeilenvorschub verlöscht die Anzeige bis auf das Bereitschafts- 
symbol. 


4. Bei Anzeige "L: Serie 1/Eigen 2 (ENTER) _” über die weitere Fortsetzung entschei- 


11. 


den: 


4.1. Serienmäßige Leitfähigkeiten abrufen und einspeichern: 1 (ENTER) oder nur 
(ENTER) drücken. Die Leitfähigkeiten werden in die Speicher des Rechners 
übernommen und zur Kontrolle ausgedruckt; die Anzeige verlöscht bis auf das 
Bereitschaftssymbol. 

4.2. Individuelle Leitfähigkeiten eingeben: 2 (ENTER) drücken. 

4.3. Bei Anzeige "Zahl Leitfaehigk. =_'" ganze zwischen einschließlich 1 und 99 
liegende Zahl eintasten und (ENTER) drücken. 

4.4. Bei Anzeige "Leitfaehigkeit N = " (ENTER) drücken. 

4.5. Bei Anzeige "Leitfaehigkeit N = ?’' Wert eintasten und (ENTER) drücken. Ein- 
gaben so lange fortsetzen, bis alle Werte eingegeben sind und die Eingaben zur 
Kontrolle aufgelistet werden. Nach einem mehrfachen Zeilenvorschug und dem 
Verlöschen der Anzeige bis auf das Bereitschaftssymbol ist die Einspeicherung 
der Leitfähigkeiten beendet. Weitere Verarbeitungen in Punkt 3 anwählen. 


. Kontrollanzeige “'K-Wert Wand‘ mit (ENTER) löschen; Ausdruck einer kurzen Ver- 


arbeitungsanleitung zur k-Wert-Berechnung der einen Raum abschließenden 6 Flächen 
in Übereinstimmung mit dem Ausdruckbeispiel. Nach einem mehrfachen Zeilenvor- 
schub verlöscht die Anzeige bis auf das Bereitschaftssymbol; die Eingaben können 
beginnen. 


. Wandart in allen Fällen in gleicher Weise anwählen und Eingaben analog der Punkte 7 


bis 16 vornehmen: 

6.1. Seitenwand 1: (DEF) A oder RUN 258 drücken. 
6.2. Seitenwand 2: (DEF) S oder RUN 26® drücken. 
6.3. Seitenwand 3: (DEF) D oder RUN 270 drücken. 
6.4. Seitenwand 4: (DEF) F oder RUN 289 drücken. 
6.5. Decke: (DEF) G oder RUN 299 drücken. 

6.6. Boden: (DEF) H oder RUN 390 drücken. 


. Bei Anzeige der Wandart, z.B. ''Wand 1: cm = " (ENTER) drücken. 
. Bei Anzeige der Wandart, z.B. "Wand 1: cm = ?‘ betreffende Gesamtwandstärke in 


cm eintasten und (ENTER) drücken. 


. Bei Anzeige z.B. “Anteil Wand 1: % = "' (ENTER) drücken. 
10. 


Bei Anzeige z.B. “Anteil Wand 1: % = ?’' Anteil dieser Wand in % der Gesamtfläche 
eintasten und (ENTER) drücken; Kontrollausdruck der Eingabe. 

Bei Anzeige “auss-inn1/inn-inn?2 (ENTER)_‘ über den Raumabschluß dieser Wand 
entscheiden: 

11.1. Außenwand: 1 (ENTER) drücken. 

11.2. Zwischenwand: 2 (ENTER) drücken. 

Nach der ersten von mehreren derartigen Entscheidungen kann bei Betätigung der 
Taste (ENTER) ohne vorangehende Zahleneingabe eine Eingabewiederholung durch- 
geführt werden; Kontrollausdruck der getroffenen Anwahl und Ausdruck einer Titel- 
zeile für die tabellarische Eingabedokumentation. 
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12. 
13. 


14. 


15. 


16. 


Die 


3 Praktische Anwendung 


Bei Anzeige “N: Code = “ (N laufende Schalennummer) (ENTER) drücken. 


Bei Anzeige °'N: Code = ?'‘ Code des gewählten Materials ganzzahlig zwischen ein- 
schließlich 1 und X eintasten und (ENTER) drücken. Bei Anwahl der Codes 1 bis 3 
wird nach einem Kontrollausdruck der Eingabe bei Punkt 16 fortgesetzt. 


Bei Anzeige “N: cm =“ (N laufende Schalennummer) (ENTER) drücken; Kontroll- 
ausdruck der Eingabe. 

Bei Anzeige “N: cm = ?'' Schalenstärke in cm eintasten und (ENTER) drücken; die 
Eingaben werden zur Kontrolle tabellarisch aufgelistet. 


Bei Anzeige ‘OK? nein 1 (ENTER) _ über die weitere Fortsetzung entscheiden: 


16.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und nach 
dem Textausdruck “Irrtum‘' Eingabe ab Punkt 12 wiederholen. 

16.2. Eingabe in Ordnung: (ENTER) ohne vorangehende Zahleneingabe drücken und 
die Eingabe ab Punkt 12 fortsetzen, bis sämtliche Schalen einer Wand einge- 
geben sind. Anschließend erfolgt automatisch die Ausgabe der Ergebnisse einer 
Wandberechnung. Ist die letzte der 6 Wände eingegeben, erfolgt auch die Aus- 
gabe des Gesamtwärmeverhaltens des Raumes selbsttätig. Zwischenstände kön- 
nen mit (DEF) X oder RUN 570 abgerufen werden. 


. Weitere Wände werden ab Punkt 6, neue Wandkombinationen ab Punkt 3.2. berech- 


net. Im Sinne einer Variantenrechnung kann aus einem bereits berechneten Raum- 
system eine Konstruktion einer Wand gegen eine andere ausgetauscht werden. Neben 
den wandspezifischen Wärmewerten wird sogleich der Einfluß auf den gesamten 
Raum festgestellt und dessen neues Wärmeverhalten ausgedruckt. 

zuletzt angesprochene Möglichkeit wurde im Testbeispiel ausgeführt. Nach Berech- 


nung der 4 Seitenwände wurde ein Zwischenstand abgerufen (k = 0,617), dann Decken 


und 


Boden eingespeichert und der Gesamtdurchgang mit k = 0,873 ermittelt. Aufgrund 


einer doppelt starken Isolierung der Deckenfläche konnte in einer Variantenrechnung der 
k-Wert auf 0,807 gedrückt werden. 


KIKKKKKKKKKKKKKKKK 
Waermerechnung 2 
KKIKKKKKKKKKKKKKKK 
DEF Verarbe ı tung 
TTTTTTTTTTTT LC 6)= D.?7BB = . 498 
J- Leitfaehig- L( ?)= 0.128 ® So)- 2\ soo 
ee minaeb.  Lc 8)= 1.588 |< 21)= 2.460 
| ert Wan LC  9)= 2.128 Lt 22)= 2.528 
x 7_Krhert Raum LC 19= 2.328 LC 23)= 2.610 
nn LC 1]1D= 2.148 LC 24)= 2.412 
Leitfaehıyak. W/mK LC 12)= 8.198 Lt 25)= 2.148 
222 - LC 13)= 2.238 LC 26)= 2.058 
L( ])= 8.148 LC 14)= D.29B LC 2>)= 9.0933 
LC 2)= B.168 LC 15>= 8.358 Lt 28)= 2.841 
LC 3)= 2.188 LC 16)= D.465 LC 29)= 2.142 
LC 4)= 1.488 LC 17D= D.588 LC 3B)= 9.2582 
LC 5)= B.878 LC 18)= B.4a4B8  _.-------------- 


3.8 Wärmerechnung 2 


KKKKKKKKKKKKKKKKKX 
Wandau fbau 
KKKKKKKKKKKKKKKKKK 


DEF Wandart 


un mm wm Ge Den DE m gun gun (EEE ua mus Dre Du de m m mn 


A - Seıtenwand ] 
S - Seitenwand 2 
D - Seitenwand 3 
F- Seıtenwand 4 
G - Decke 
H - Boden 


= wm van Gun um gu gun zu GEB GEB que RED GES Ama Gmil Guam dumm Gum 


Wand 1 ( 15 %) 


KKKKKKKKKKKKKKKKKK 

oussen - ınnen 

Sch. Code cm 
[| 5 1.5 
2 11 4.8 
3 ? 2.8 

Wand (cm) = 58.5 

K CW/m2K) = B.268 


Wand 2 € 15% 


KKKKKKKKKKKKKKKKRK 
oussen - ınnen 
Sch. Code cm 
l 5 1.5 
2 5 1.5 
Irrtum 
2 11 21.8 
3 3 5.B 
4 12 21.8 
n5) 8 2.08 
Irrtum 
5 7 2.B 
Wand (cm) = 58.5 
K (W/m2K) = B.316 


Beispiele zu 3.8 Wärmerechnung 2 


Wand 3 (6 15 9 


KKKKKKKKKKKKKKKKTT 

ınnen - ınnen 

Sch. Code cm 
l 5 1.5 
2 17 22.8 
3 5 1.5 

Wand (cm) = 25.8 

K (W/m2K) = 1.438 


Wand 4 (C 15 % 


KKKKKKKKKKKKKKKKKK 

ınnen - ınnen 

Sch. Code cm 
1 5 1.5 
2 17 9.8 
3 5 1.5 

Wand (cm) = 12.8 

K cW/m2K) = 2.194 


Durchgang gesamt 
KKKKKKKKKKKKKKKKKK 
K cW/m2K) = B.617? 


Decke ( 28 7%) 


KKKKKKKKKKKKKKIKKKK 

ınnen - ınnen 

Sch. Code cm 
l 26 5.8 
2 9 28.8 

Wand (cm) = 25.8 

K CW/m2K) = DB.884 
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Boden ( 28 %) 


KKKKKKKKKKKKKKKKKK 
ınnen - ınnen 
Sch. Code cm 

1 6 18.B 
Irrtum 

l 16 18.8 
Irrtum 

l 26 18.08 

2 19 28.8 
Irrt um 

2 14 28.8 
Irrtum 

2 9 28.8 
Wand (cm) 3D. 


= B 
K (W/m2K) = B.475 


Durchgang gesamt 
KKKKKKKKKKKKKKKKKK 
KcW/m2K) = B.873 


Decke ( 28 7) 


KKKKKKKKKKKKKKKKKK 
ınnen —- ınnen 
Sch. Code cm 

l 6 18.28 
Irrtum 

l 16 18.2 
Irrtum 

l 26 18.8 

2 19 28.8 
Irrtum 

2 9 28.8 
Wand (cm) = 38.08 
K cW/m2K) = B.4)5 


Durchgang gesamt 
KKKIKKKKKKKKIKKKKK 
K cW/m2K) = B.88?7 
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3.9 Trägkeitsmoment, Schwerpunktlage, Widerstandsmoment 
zusammengesetzter Flächen 


Im Rahmen technischer Berechnungen trifft man häufig auf die Frage nach dem aus ver- 
schiedenen Querschnittsabmessungen und der Querschnittslage abgeleiteten Trägheitsmo- 
ment, der Lage der Schwerachsen und damit des Schwerpunktes sowie des Widerstands- 
momentes. Für Standardquerschnitte kann man sich leicht anhand technischer Fach- 
bücher und Formelwerke informieren; für zusammengesetzte Querschnitte, bzw. Flächen 
wird die Sache, das Problem von Hand zu lösen, aufwendiger. Ob mit der Hand oder mit 
Hilfe des vorliegenden Programms kommt es bei zusammengesetzten Flächen nur auf die 
Auflösung derselben in Standardflächen wie Rechteck, Dreieck und Kreis an. Für deren 
unterschiedliche Lage zur gemeinsamen Schwerachse, bzw. zur x- bzw. y-Achse eines 
zweidimensionalen kartesischen Koordinatensystems gibt es Rechenformeln, mit deren 
Hilfe sich zusammengesetzte Flächen bearbeiten lassen. 


Wir werden im vorliegenden Programm also die wichtigsten Teilflächen zur Ermittlung 
komplexer Querschnitte und Flächen behandeln und zwar 


© Rechteck mit dem Sonderfall Quadrat, 
e das Dreieck in der Form eines rechtwinkeligen 
® und den Kreis. 


Es ist auch darauf zu achten, daß bei der Ermittlung der Werte für den zusammengesetzten 
Querschnitt auch Teilflächen mit negativem Vorzeichen berücksichtigt werden müssen. 
Ein Dreieck beliebigen Zuschnitts ist in zwei rechtwinkelige Dreiecke aufzulösen. Die 
Kreisfläche wird wohl in erster Linie als Hohlraumteilquerschnitt, also mit negativem Vor- 
zeichen in die Rechnung eingehen. 

Im Programm wird nicht nur eine Achslage jeweils parallel zu den beiden Achsen x und y 
des kartesischen Koordinatensystems, sondern auch eine schiefwinkelige berücksichtigt. 
Eine Flächenauflösung für beispielsweise einen Bordsteinquerschnitt (wichtig im Fall 
einer Güteprüfung!) wird in zwei Varianten ermöglicht: 


Originalquerschnitt Teilung 1 oder Teilung 2 


Die erste Skizze stellt den Originalquerschnitt dar, die zweite und dritte zwei Teilungs- 
möglichkeiten. Es könnte die zusammengesetzte Fläche mit Trägheits- und Widerstands- 
moment aber auch aus einer dritten Möglichkeit gewonnen werden: Rechteckquerschnitt 
abzüglich eines mit der Spitze nach unten weisenden rechtwinkeligen Dreiecks (Negativ- 
fläche). 

Während bei einem Rechteckquerschnitt die Lage der einzelnen Punkte mehr oder minder 
frei gewählt werden können, gibt es bei der Dreiecksberechnung eine grundsätzliche Fest- 
legung der Punkte P,, P, und Pz nach der folgenden Skizze: 
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Wahl der Punkte R,P, und PR, bei unterschiedlicher Lage des Dreiecks: 


P 

Pz PR 2 P Pr P, 
> P, \ 

P P, 


Man wird sich nun bei der Wahl der Punkte P,, P, und P3 für das Rechteck (mehr Punkte 
sind auch für ein Rechteck nicht erforderlich!) an die beiden ersten Dreiecksdarstellun- 
gen halten; für den Kreis gibt es ohnehin keine Probleme, da die Lage der Achsen immer 
parallel zu den Achsen x und y angenommen werden kann. 

Und nun kommen wir zum recht umfangreichen Formelmechanismus einzelner Flächen- 
teile. 


Verschiedenheiten in der Achslage 


Ein beliebiger Querschnitt sei so gelegt, daß dessen Schwerachsen u und v unter dem 
Winkel «a geneigt im kartesischen Koordinatensystem liege: 





Für einen beliebigen Querschnitt seien I, I,, Iuy, F, sowie x, und y, bekannt. Bezogen 
auf das Koordinatensystem x und y ergeben sich folgende Rechenformeln: 


=| -cos2 .ein? a — “ci 
lxe = Iu cos“ a +1, sin”a@ = I,,"sin2a ; 





Iye- hu sin®a +1, cos?®« + |," sin2a : 
ui 
Ixy = > -sin2a + |,,‘cos 20; 
Z(F,'e,) Z(F;'e,) 
x, ZF= Zi, x); KU TE Ti VAT 
lv = 2AF'x'y; x = Zlye+ Fred) -F v5; W. = Is /Vs; 


Iys= Zllye+tFred)-Fexi; Wy=1yslXs. 
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Rechteck 
y 


\ 


Ys 





Ausgangswerte sind die Punkte P; (x4, yı), P2(X2, Y2) und P3(x3, ya): 


1= Ylx2 -xı)? + (ya -yv1)?; h=v/lxa -xı)? + (ya yı)“; 


Yı 
X2 7X, 


u =1-b9ı2; 1,=b-IN2; 1,=0: 





tana& = 


1 bb. 
X, = X +z.cosa= sind; 


1. b 
Ys = Yı +z.sinat7'cos@. 


Rechtwinkeliges Dreieck 


Ys 
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Ausgangswerte sind die Punkte P; (x4, yı), P2(X2, y2) und P3(x3, ya): 


g= /lx2 -xı)? + (ya - vı)?; h= Ylx3 -x1)? + (ya - y1)%; 


y2”Yı 





tana= =; F=g'h/2; 
lu = 9:h2/36; 1,=h-g9/36; lv = EFexs yo; 
g h, g h 
X, = Xı 2'005 72 "SINna; Ys = Yı +7 sına +7 'cos&. 


3 3 


3 3 








d®-7 
u = I, = 64 ‚ luv = Ö; 
Xı t%2 Yı t y2 

Xs u 2 ' Ys = 2 ” 
Speicherorganisation 
A-—xı Q -— Zfe, 
B - yı R - Fee, 
CC — X2 S _ I. 
D —- Y2 T _ I, 
E — x3 U - Ell+Feey 
F-— Ya V - Zl,+tF'e 
G — Winkel a (P,P;) W — Hilfsspeicher 
H — e,,Ys X — Index 
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Das Programm kann mit oder ohne Drucker gefahren werden. 


lB: 


20: 


3B: 


40: 


Sp: 


6B: 


BD: 


BP: 
92: 


 mozzr ir - —- 
| 


"JEWO":CLEAR : 
S$="Traeghe ıts 
moment": T$="Sc 
hwerpunkt lage" 
U$="Widerstand 
smomen'": U$="t" 
"PRINT "XXX J 
+te+W-Berechnun 
9 xxx" 
Z=1:1NPUT "Anz 
eıge 1/Druck 2 
CENTER)>"JZEIF 
CZ<13OR (CZ>2) 
OR CZ-INT Z<>B 
ITHEN 38 
A$="Start":B$= 
"Summenabruf": 
[C$="Ausgangswe 
rte ":D$="Erge 
bniısse " 
E$="Rechteck": 
F$="Dreiıeck":6 
$="Kreis":H$=" 
(DEFI":1$=" - 


IF Z=2CSIZE 2: 
COLOR B:G0TD 9 
Q .: 
WAIT 228: PRINT 
Hs; "N "zAS: 
PRINT H$;" C " 
ES: PRINT H$;" 
D "3F$:PRINT 
H$;" K "3G$: 
PRINT H$;" x " 
ıB$ 
WAIT :GOTO 11R 
LF 2:GOSUB 132 
:LPRINT S$: 
LPRINT T$: 
LPRINT US$; U$: 
GOSUB 13R:LF ] 
-LPRINT "DEF U 


Y _ — Index 
Z -— Ausgabemodus 
ED -— oberer Grenzwert 


VG — Winkel «(P}P3) 
Flächenkennzeichnung 
Flächenkennzeichnung 
VZ - Flächenvorzeichen 


4-4 
N — 
| 


1D2: 


185: 


112: 


122: 


13BD: 


14B: 


152: 


162: 


17B: 


175: 


1820: 


192: 





erarbe ıtung'": 
GOSUB 142: 
LPRINT "a";518$; 
n$ 

LF 12LPRINT "C 
"S1I$;5E$:LPRINT 
"D";IS;F$ 
LPRINT "K"3;1$; 
G$:LF 1:LPRINT 
"x"31$;B$: 
GOSUB 148:LF 4 
"A"'ZWAIT 2BB: 
PRINT A$;" JeW 
-Berechnung": 
FOR Y=1TO 24 
BCY)=B:NEXT Y: 
PRINT "Eingabe 
n vornehmen!": 
WAIT :END 
LPRINT "XXKKXKXX 
XKKKKKKKKKKKK 
RETURN 

LPRINT "------ 


vn m 1m sum dm men um me zum Cu u en 


RETURN 


"TUERSSES:TI=S1 


ı T2=2:ED=3: 
GCOTDO 175 
"D’IR$=SF$:TI=2 
: T2=3:E0=3: 
GOTO 175 
"KYR$=6G$:Tl=] 
‚ T2=B: ED=2 
VZ=1: INPUT "FI 
.pos: +tl/neg: -] 
CENTER>"}VZE IF 
CVZ<>DIDAND (UZ 
<>-1>THEN 175 
PRINT R$:WAIT 
1:FOR Y=1TO ED 
Y$S=STR$ YEIX=(CY 
13 X2+1: PRINT 
Alt ys,') = " 
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28D: 
21R: 


22: 
23D: 


242: 


28B: 


29B: 


® 


INPUT 8(CX) 

CLS :PRINT "y( 
vay$g;") = ". 
INPUT 8CX+1) 
CLS :NEXT Y: 
WAIT :.JI=ICCC-A 
In2+CD-BIN2):W 
=JXJ 

IF T2=BLET L=VU 
ZXWXN/4: M=WXL/ 
16: N=M:H=(A+C) 
+2: 1=(CB+D)72: 
GOTO 312 


: IF C=SALET G=98 


:GOTO 278 


:G=ATN CCD-B)/C 


L-ADD: IF E=A 
LET VG=98:60T0 
288 


:UG=ATN (CCF-B)/ 


cE-M)) 

IF ABS (SIN 6) 
C>ABS (COS VG) 
THEN 188 
K=ICCE-AIN2+CF 
-BIN2I:L=VZKIK 
K/T1:H=.J/T2% 
SIN G+K/T2XCOS 
G: IF F<BLET H= 
-H 


;H=B+H: 1=J7/T2X 


COS G-K/T2XSIN 
G: IF C<ALET 1= 
-] 


: I=SAr]:N=L/C6KT 


23: M=NXKXK:N=N 
XW: O=LXHXI 

IF TI=1LET 0=B 
S=MXCCOS GIr2+ 
NK(CSIN G)N2-0% 
SIN (2XG): T=MX 
CSIN GIA2Z+NKC 
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COS G)r2+0XSIN GOSUB 14B8:LF 2 esamtquerschni 
C2XG):P=P-+L :LPRINT DS: tt":6OSUB 148 
338: O=Q+LXH: R=R+LX LPRINT R$: 448: Pg="IcCx) ="; V= 
1: U=U+S+LXHXH: GOSUB 148 J: GOSUB 478: P$ 
V=U+T+LXIXIE IF 398: P$="](x) =":Y= ="s(y) =":Y=H 
Z=2LF 2:LPRINT S:CGOSUB 478: P$ GOSUB 472; P$=" 
C$:LPRINT R$: =te(y) ="ıY=H: W(x) =";Y=J7H: 
GOSUB 148:LF - GOSUB 472: IF 2 GOSUB 47B: IF 2 
1:6G0TO 358 =2LF 1 =2LF ] 
34B:WAIT 228: PRINT ABB: P$="]I(ly) =":Y= a5ß:P$="]ly) =":Y= 
C$;R$ T:GOSUB 478: P$ K:GOSUB 478: P$ 
358:FOR Y=1T0O ED zta(x) =";Y=]: =!s(x) =":\Y=]: 
368: Y$=STR$ Y:X=(Y GOSUB 478: IF 2 GOSUB 478: P$=" 
-1IX2+1:1F Z=1 =2G0SUB 14B8:LF Wey) =": Y=K/]: 
PRINT "xcC";Y$; 2 GOSUB 478 
"yzsgcK): 41B:WAIT :END 455: IF Z=2G0SUB 14 
PRINT "ul"; Y$; 428: "X"SPRINT B$:H B:LF 4 
"I ="5,@(0xX+12: =0/P: I=R/P: J=U a46B:WAIT :END 
GOTO 388 -PXHXH: K=U-PxX] 47B:%X=8-INT LOG ( 
37B:LF 1:LPRINT "x x] ABS YD:Y=INT ( 
(r3YS,") =";@l 425: 1F Z=1WAIT 2828 1BrXXY+.527C1B 
X):LPRINT "yc" :PRINT "Gesamt AXI:IF Z=] 
ıY$;") ="50CK+ auerschnitt"; PRINT P$3Y: 
1) GOTO 44B RETURN 
RETURN 
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Trägheitsmoment, Schwerpunktlage, Widerstandsmoment zusammengesetzter Flächen 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "JEWO“ (ENTER) starten. 

2. Kontrollanzeige "*** J+te+W-Berechnung ***’' mit (ENTER) löschen. 

3. Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _‘ über die Art der Ausgabe entscheiden: 
3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken; eine kurze Verarbeitungsan- 

leitung wird zeilenweise kurzzeitig angezeigt; Fortsetzung bei Punkt 4. 
3.2. Druck: 2 (ENTER) drücken; Ausdruck einer kurzen Verarbeitungsanleitung 
in Übereinstimmung mit dem Testbeispiel; mehrfacher Zeilenvorschub. 

4. Nach der ersten von mehreren Verarbeitungen ist dieser Punkt vor Neuaufnahme der 
nächsten unbedingt mit (DEF) A anzuwählen. Die Startanzeigen "Start JeW-Berech- 
nung‘ und “Eingaben vornehmen!’’ werden kurz angezeigt. Darauf verlöscht die An- 
zeige bis auf das Bereitschaftssymbol. 

5. Anwahl eines Grundquerschnittes: 

5.1. Rechteck: (DEF) C drücken und bei Punkt 6 fortsetzen. 
5.2. Dreieck: (DEF) D drücken und bei Punkt 6 fortsetzen. 
56.3. Kreis: (DEF) K drücken und bei Punkt 6 fortsetzen. 

6. Bei Anzeige "Fl. pos: + 1/neg: -1 (ENTER) _” über die weitere Fortsetzung ent- 

scheiden: 

6.1. Positive Flächen berechnen: 1 (ENTER) drücken. 

6.2. Negative Flächen berechnen: - 1 (ENTER) drücken. 
Kontrollanzeige der angewählten Fläche mit (ENTER) löschen. 
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Zur 
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Die Verarbeitung von Rechteck und Dreieck ist an die Eingabe von 3, jene eines Kreis 
an die Eingabe von 2 Punkten gebunden, wobei man sich bei der Wahl der Lage der 
Punkte an die jeweilige Skizze zum betreffenden Grundquerschnitt halten muß. Die 
Eingaben der Koordinaten x und y erfolgt bei der Anzeige "x (n) = ?’‘, wobei zuvor 
von der Anzeige “x(n) =" mit (ENTER) weiterzuschalten war, und werden grund- 
sätzlich mit Betätigung der (ENTER])-Taste abgeschlossen. Bei der Eingabe von y er- 
scheint anstelle des Buchstaben x der Buchstabe y in der Anzeige; n bedeutet die 
fortlaufende Nummer der Eingabe bzw. den Punkt, für den die Eingabe der Koordi- 
naten erfolgen soll. Nach vollständiger Eingabe werden die Ausgangswerte zur Kon- 
trolle selbsttätig angezeigt, bzw. ausgedruckt; das gleiche gilt für die Ergebnisse in 
Übereinstimmung mit dem Ausdruck des Testbeispiels. Daraufhin verlöscht die An- 
zeige, beim Druck nach einem mehrfachen Zeilenvorschub, bis auf das Bereitschafts- 
symbol. Weitere Teilflächen werden ab Punkt 5 eingegeben. 

Gesamtergebnis des zusammengesetzten Querschnitts mit (DEF) X abrufen. Ausgabe 
von Trägheitsmoment, Abstand des Schwerpunkts von der x- bzw. y-Achse und 
Widerstandsmoment bezogen auf die x- bzw. y-Achse über Anzeige, wobei selbsttätig 
nach einer Weile auf das nächste Ergebnis weitergeschaltet wird, bzw. über den 
Drucker. Nach der Ergebnisausgabe über den Drucker erfolgt ein mehrfacher Zeilen- 
vorschub zum bequemen Abitrennen des Druckstreifens. Daraufhin verlöscht die An- 
zeige bis auf das Bereitschaftssymbol. 


Durchführung der Berechnungen noch einige Bemerkungen: Um die Widerstandsmo- 


mente bezogen auf die Außenkante eines zusammengesetzten Querschnitts bestimmen zu 
können, legt man die betreffende komplexe Fläche so in das Koordinatensystem, daß sich 
zwei Seitenkanten an die x- bzw. y-Achse anlegen. Im Testbeispiel wollen wir ein Recht- 


eck 


mit den Seitenlängen 200 und 300 mm sowohl als Gesamtquerschnitt als auch in 


Form von zwei Dreiecken berechnen und stellen Übereinstimmung mit den Ergebnissen 


fest. 


Aus den Zahlenangaben zu den jeweiligen Punkten kann sofort auf die Lage dieser 


Punkte geschlossen werden. 


KKKKKKKKKKKKKKKKKK Ausgangswerte 
Traeghe ıtsmoment Rechteck Gesamtquerschnitt 
Schwerpunktlage Hmmm Ten n 
Widgerstandsmoment x(l2 = DB ICx) = 45BBB2B888 
KIKKKKKKKKKKKTKKTK ul) =DB s(y) = 158 
Wcx) = 3882822 

DEF Verarbe ıtung x(2) = 2BB 
2422222 y(2)=DB ICy) = 28928282 
A - Start s(x) = 1BB 

x(3) =DB WCy) = 2880882 
C - Rechteck y(3) = 3B8 O0 menu nnnnnnn 
D - Dreieck Weed 
K- Kreis Ergebnisse 

Rechteck 
% — Summenabruf mmeeeeeeeeennenen 
oT om nn Ikx) = 4588808882 

e(y) = 158 

Icy) 2BLBRBLDDD 


e(x) = 128 


“mm om mi AmE rer gras GM Gum Grub gem me Grub Grub Gum Grup Gun Gman dee 
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Ausgangswerte Icy) = 66666666. ? Ergebnisse 

Dreieck e(cx) = 66.6666667 Dre jeck 

xl =B Ausgangswerte ICx) = 15R0R2BD282 
ul) =2B Dreieck e(y) = 2BB 

x(2) = 2BB x(1) = 28D ICcu) = 66666666. 
u(2) = DB yCl) = 3BB e(x) = 133.333333 
x3) = 2 «23 =9 Gesamt querschnitt. 
u(3) = 388 UST a TIL 
men Zee me Icx) = 45BRRBRB2B 
Ergebnisse x(3) = 2BB s(y) = 158 

Dreieck 0000 __ y(3) = 8 CK) = 3020220 
1(x) = 158220222 ICy) = 282222820 
e(y) = 128 x) = 120 

Beispiele zu 3.9 Trägheitsmoment, Schwerpunktlage, WCy) = 2BBBBRBRD 


Widerstandsmoment zusammengesetzter Flächen mem ln nnnnnnn 


3.10 Bewehrungstabelle für Stahlbetonbauteile 


Bei der Herstellung von Stahlbetonbauteilen müssen die Massen der Bewehrungsteile be- 
rechnet werden. Die Bewehrung eines Betonbauteils ermöglicht vielfach erst die Trag- 
fähigkeit, da Beton von Natur aus sehr spröde ist und in erster Linie nur Druckspannun- 
gen aufnimmt und übertragen kann. Damit ein Betonquerschnitt aber auch mit Zugspan- 
nungen belastet werden kann, müssen Stahlstäbe eingelegt werden, die die Aufgabe der 
Zugspannungsübertragung übernehmen. 


Die Einzelteile einer Bewehrung sind einem Schalungs- und Bewehrungsplan zu ent- 
nehmen. Jedes einzelne Element ist gekennzeichnet durch die Positionsnummer, der An- 
zahl gleichartiger Elemente, den Durchmesser des Stabes in mm und die Länge desselben 
inm. 


Ein solcher Bewehrungsplan, bzw. die Aufrechnung sämtlicher Elemente finden Sie weiter 
unter dargestellt. Elemente gleichen Durchmessers sind so angeordnet, daß auch eine Auf- 
rechnung von Hand übersichtlich vorgenommen werden kann, sieht man vom erforder- 
lichen Zeitaufwand ab. 


Bewehrungstabelle 












ET 
| oo 





3,00 
Ö, 
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Für unser Beispiel wählen wir eine Stahlsorte, die von 4 mm Stabdurchmesser bis 42 mm 
und von 2 zu 2 mm abgestuft hergestellt wird. Es ist nicht nötig, die Gewichte per m für 
alle Stabdurchmesser tabellarisch in das Programm aufzunehmen, denn mit Hilfe der 
Reinwichte von Stahl mit 7,85 kg/dm?® läßt sich die Masse eines Stabes eines bestimmten 
Durchmessers wie folgt leicht berechnen: 


r?-n7:7,85 
IT 1000 


In dieser Formel ist r der Radius des betreffenden Stabes mit der Länge 100 cm = 1m. 
Die Einheitsgewichte werden im Programm auf drei Dezimalstellen genau gerundet be- 
rechnet, um eine Vergleichbarkeit mit Massenermittlungen von Hand zu ermöglichen, da 
die einschlägigen Tabellenwerke ebenfalls die Gewichte in dieser Größe angeben. 


(kg/m). 


Wenn wir eine Reihe von Summenspeichern einrichten müssen, können wir die Speicher- 
adressen direkt aus dem jeweiligen Durchmesser eines Stabes ableiten. Wenn wir die 
Speicheradressen i eines Datenfeldes DIM DM (24) von 1 bis 24 laufend wählen, dann be- 
steht folgende Beziehung: 


. d 

i=7 1. 
Darin ist i die Speicheradresse und d der Stabdurchmesser. In diesen Summenspeichern 
werden die Längen aufsummiert, wie dies aus der Skizze abzulesen ist. Die Gewichtsbe- 
stimmung erfolgt erst anläßlich der Absummierung der Gesamtlängen nach Beendigung 
der Eingaben. 
Im Programm ist mit folgenden Eingabebeschränkungen zu rechnen: 


im Höchstfall 99 Positionen; 

größtmögliche Stablänge 20,00 m; 
Mindeststablänge 0,01 m; 

maximal 999 Stück je Position; 

Stabdurchmesser D 4 bis D 42 mm von 2 zu 2 mm. 


Wegen des relativ großen Umfangs der Ausgaben wird dieses Programm nur in Verbindung 
mit dem Drucker benutzt. Eingaben sind vom Summenabruf getrennt anwählbar einge- 
richtet; die Abrufautomatik tritt erst nach der Eingabe der 99. Position ein. Nachdem mit 
irrtümlich ausgelösten vorzeitigen Abrufen zu rechnen ist, hat das Programm eine Fort- 
setzungsmöglichkeit (wie im Testbeispiel dargestellt). Die Speicherlöschung wird erst vor 
einer neuen Verarbeitung durchgeführt, so daß die anwählbare Programmfortsetzung ohne 
Folgen für den Datenbestand bleibt. 


IB: "ARMI":CLEAR : GOSUB 4B:LF ]: mmenabruf": 
PRINT "XXXX B LPRINT "DEF Va GOSUB SB:LF 4: 
ewehrungsplan rarbe ıtung'"; END 

XXXX":DIM DMC GOSUB 52: AaB:LPRINT "XXKKKKX 
24):CSIZE 2: LPRINT "Aa —- Ei KIKKKKKIKKIKT: 
COLOR B: GOSUB ngaben" RETURN 
42 32:LPRINT "FF - Fo SB:LPRINT "------ 

28B:LPRINT "Bewehr rts.Eıngaben': == "; 


ungs-Tabelle": LPRINT "S - Su RETURN 
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6B: "A"S;PRINT 


"Eın 
gaben":LF |]: 
GOSUB 352: FOR 
1=1T0 24 


7B:DMEI>=B:NEXT I 


-P=] 


8B:WAIT 1:USING : 


PRINT "P.";P3" 
;"3;" Stueck = 


it 


98: INPUT S 


128: CLS 


IF cS<l]) 
OR (S>II9)0R C 
S-INT S<>B) 
THEN 88 


11B:PRINT "P.";P5" 


"3" Durchm. ( 


mm) = "3 


128: INPUT D 
I3B:CLS :IF (D<4) 


148: PRINT "P. 


OR CD>42)0R (D 
-1INT D<>B)OR ( 
D/2-INT (D/29%£ 
>B)>THEN 112 
"pP; " 
"5" SIg. (m) 


158: INPUT L 
16B:CLS : IF (L<=8) 


17B: USING 


OR (LI2B)OR (1 
BAXL-INT (199% 
LI<>BITHEN 140 
"Eh; 

TAB B:LPRINT P 


202: 


212: 


215: 


228: 


23D: 
242: 


25B: 


26P: 


:USING 


3 
:USING 


“ht; 
TAB 3:LPRINT S 


“Het: 
TAB 8:LPRINT D 


USING "HHR.H#" 
;:TAB 12:LPRINT 
L: INPUT "Korre 
kt? neın ICENT 
ER)"SZSLPRINT 
"Irrtum":GOTO 
8D 
DMCD/2-13=DMCD 
+2-))+LXS:P=P-+ 
1 
IF P>SIITHEN 24 
] 
INPUT "Weiter? 
neın 1C(CENTER) 
"SZ:WAIT :GOTO 
24B 
GOTO 88 
"S";PRINT "Sum 
menabruf":LF 2 
:G=B:LPRINT "S 
ummen: ":GOSUB 
Sß:LF -1:FOR |] 
=1T0 24 
IF DMCII=BTHEN 
31R 
LF 1:D=C1+1)X2 
:LPRINT "o"; 


Programmlisting 3.10 Bewertungstabelle für Stahlbetonbauteile 


Bedienungsanleitung 


27B: 


28: 


32B: 


31B: 


322: 
33B: 


34B: 


352: 


36PB: 


USING 


111 


TAB B:LPRINT " 
7 Cmm)"3USING 
Be 32 .5:2.2.2.2.2.2.2.2 28 
ıD 

F=C]1INT (C(cD/2Dr 
ZXIK?.85+.5))7 
1E3:USING "HH# 
BHHEHRHR. HER: 
LPRINT "kg/m"; 
F 

"HHHHHH, 
4#":LPRINT "Ge 
Ss. Cm)";DMCI) 
E=INT CDMCIDKF 
*X128+.5)71DB: 
LPRINT "Ges. ( 
kg)"sE:G=6G+E 
NEXT I: IF G>2 
GOSUB 5B: 
LPRINT "Summe ( 
ka)";3G:LF 4 
END 

"F"ZIF S=BTHEN 
68 

LF 1:LPRINT "F 
ortsetzung"; 
GOSUB 358: G0TO 
8B 

LPRINT "Eıngab 
en: ":LPRINT "P 
os Stk o"; 
TAB 1D2:LPRINT 
"7 Sim)": 
GOSUB S5B: 
RETURN 


1. Programm mit RUN (ENTER) oder RUN "ARMI” (ENTER) starten. 

2. Kontrollanzeige ''**** Bewehrungsplan ****‘“ mit (ENTER) löschen; Ausdruck 
einer kurzen Verarbeitungsanleitung. Die Anzeige verlöscht bis auf das Bereitschafts- 
symbol nach einem mehrmaligen Zeilenvorschub zum bequemen Abtrennen des 


Druckstreifens. 


3. Eingaben mit (DEF) A anwählen. 


4. Kontrollanzeige “Eingaben mit (ENTER) löschen; Ausdruck einer Titelzeile für die 
Kontrollausdrucke der Eingaben. 
5. Bei Anzeige “Pos. N: Stueck = ?' (N = laufende Positionsnummer) Stückzahl der Ele- 
mente der angezeigten Position eintasten und (ENTER) drücken. Die Stückzahl muß 
zwischen 1 und 999 liegen und ganzzahlig sein. 


6. Bei Anzeige ‘Pos. N: Durchm. (mm) = ?‘' Durchmesser ganz- und geradzahlig zwi- 
schen einschließlich 4 und 42 mm eintasten und (ENTER) drücken. 


7. Bei Anzeige ‘Pos. N: Sig. (m) = ?" Schnittlänge zwischen 0,01 und 20,00 m mit 
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2 Dezimalen eintasten und (ENTER) drücken; die Eingaben werden zur Kontrolle in 
einer Zeile ausgedruckt. 


. Bei Anzeige "'Korrekt? nein 1 (ENTER) _’' über die weitere Fortsetzung entscheiden: 


8.1. Eingabe nicht korrekt: Beliebige Zahl eintasten, (ENTER) drücken und nach 
Textausdruck “Irrtum’’ positionsbezogene Eingaben ab Punkt 5 wiederholen. 
8.2. Eingabe korrekt: (ENTER) ohne vorangehende Zahleneingabe drücken. 


9. Bei Anzeige "Weiter? nein 1 (ENTER) _ über die weitere Fortsetzung entscheiden: 
9.1. Eingaben fortsetzen: (ENTER) ohne vorangehende Zahleneingabe drücken und 
nächste Position ab Punkt 5 eingeben. 
9.2. Eingaben abschließen und Summen abrufen: Beliebige Zahl eintasten und 
(ENTER) drücken. 

10. Kontrollanzeige ‘'Summenabruf‘ mit (ENTER) löschen. Dieser Punkt kann auch bei 
irrtümlich angewählter Fortsetzung mit (DEF) S angewählt werden. Die Ergebnisse 
werden in Übereinstimmung mit dem Testbeispiel ausgedruckt. Es ergibt sich das 
gleiche Bild wie bei der Verarbeitung von Hand. Nach dem Summenabruf verlöscht 
die Anzeige bis auf das Bereitschaftssymbol nach einem mehrmaligen Zeilenvorschub. 

11. Sollte der Summenabruf irrtümlich vorzeitig erfolgt sein, kann die Fortsetzung der 
Eingaben mit (DEF) F angewählt werden. Die Anwahl der Eingabefortsetzung zu 
Beginn einer Verarbeitung führt zur Eingabenanwahl in Punkt 4 zurück. 

12. Weitere Verarbeitungen können ab Punkt 1 oder 3 aufgenommen werden. 

KERKKKKKKKKKEKCKENK Summen: 

Bewehrungs-Tabelle meumenenennenenenn 

KKKKKKTKKTKKTTKKRK 8 (mm) 6 

© (mm) 14 kg/m 8.222 

DEF Verarbe ıtung kg/m 1.228 Ges. (m) 36.68 

Tun anenmenn Ges. (m) 28.88 Ges. (kg) 8.13 

A - Eingaben Ges. (k9) 34.79 

F- Forts.Eıngoaben 8 (mm) 12 

S - Summenabruf 8 (mm) 28 kg/m 2.61? 

442m ko’/m 2.466 Ges. (m) 3.88 

Eingaben: Ges. (m) 61.48 Ges. (k9) 1.85 

Pos Stk 8 SIcm) Ges. (k9) 151.41 

a0 UDO nn 8 (mm) 12 

l a4 28 12.12 Summe (kg) 285.74 kg/m 8.888 

2 2 28 6.58 Ges. (m) 22.88 

3 6 14 4.88 Ges. (kg) 19.54 
4 8 12 2.75 

aa una o cm 1 

, . kg/m 1.228 

Summen: Pos Stk 8 SI(cm) Ges. (m) 8.80 

Sm... UT non j | 

5 (mm) 12 5 8 20 2.75 Ges. (k9) 34.79 

kg/m 28.888 Irrtum 

Ges. (m) 22.08 5 210 1.50 Kon 2.86 

Ges. (k9) 19.54 6 32 6 1.22 j 


Ges. (m) 61.42 
Ges. (k9) 151.4] 


Beispiel zu 3.10 Bewertungstabelle für Stahlbetonbautelemitt 777mm 
Fortsetzung nach vorzeitiger Absummierung Summe (kg) 215.72 
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3.11 Zeitstudien und Auswertung 


Das vorliegende Programm ist eines der anspruchsvollsten dieser Sammlung und zeigt am 
deutlichsten, daß sich der PC-1500 auch in der praktischen Anwendung als Arbeitsplatz- 
rechner bewährt. Durch den Wechsel zwischen Betrieb sowohl mit Anzeige als auch über 
den angeschlossenen Drucker erweist sich das Gerät in der industriellen Anwendung als 
sehr flexibel. 


Wer hat nicht schon unter der Last der Auswertung einer Reihe von Zeitstudien gestöhnt, 
die ihrer Aufarbeitung harren, zu deren Abwicklung man zufolge neu durchzuführender 
Studien jedoch kaum kommt. Oft ist es nicht allein der Zeitaufwand, sondern auch die 
Ermüdung, die zur zeitweiligen Ablehnung dieser Routinetätigkeit führen. 


In Zeiten der Abflachung einer wirtschaftlichen Aufschwungphase gebietet es die Ver- 
nunft, noch mehr als bisher auf sparsame Verwendung von Rohmaterialien und Arbeits- 
zeit zu achten. Die Durchführung von Zeitstudien als Teil der Administration in der in- 
dustriellen Produktion führt nicht allein zur Festsetzung von Löhnen, sondern dient auch 
zur Feststellung von Produktionszeiten für die Erstellung der Kalkulationsrichtlinien für 
bestimmte Produkte. 


Der Fachmann kennt dabei das Problem der Einschätzung der Intensität einer Arbeits- 
leistung über den Leistungsgrad; auch dieses Problem läßt sich in dem vorliegenden Pro- 
gramm berücksichtigen. Das Programm dient nicht allein zur Auswertung von Zeitstudien, 
sondern läßt sich zufolge des eingebauten Timers auch zur Erfassung der Teilarbeitszeiten 
eines Arbeitszyklus verwenden, wobei bis zu 99 Hauptarbeitsgänge in einem Zyklus vor- 
handen sein können. Das dürfte bei weitem ausreichen; an Nebenzeiten können wir bis 
zu 9 verschiedene Zeitarten berücksichtigen. 

Um die Bedienung zu erleichtern, zeigt der Rechner entsprechend textlich gestaltet den 
laufenden Arbeitsgang an. Die Hauptarbeitszeiten eines Zyklus werden über eine einzige 
Taste eingespeichert, für Nebenzeiten sind 9 zusätzliche Tasten reserviert, da Nebenarbei- 
ten im allgemeinen nicht zyklisch ablaufen wie Arbeitsgänge eines Zyklus der Hauptar- 
beitszeiten. 

Die Eingabe der Zeitwerte laufen nach folgendem Schema ab: Der angezeigte Arbeits- 
gang wird mit einer der soeben erwähnten Tasten abgeschlossen, mit der gleichzeitig der 
nächstfolgende Arbeitsgang eröffnet wird, deren Text nun wieder solange angezeigt wird, 
bis der Arbeitsgang beendet ist. Es wird empfohlen, die Vorwahltaste (DEF) immer so- 
fort zu drücken, damit bei Beendigung eines Arbeitsganges sofort die betreffende Buch- 
stabentaste betätigt werden kann. Der letzte in einer Zeitaufnahme zu berücksichtigende 
Arbeitsvorgang muß allerdings mi einer gesondert gewählten Abschlußtaste beendet wer- 
den. Nach der Betätigung der angeführten Tasten wird die letzte Differenzzeit berechnet 
und dem zuletzt angesprochenen Arbeitsgangspeicher zugerechnet. Außerdem werden 
die Anzahlen der einzelnen Vorgänge innerhalb eines Hauptarbeitsganges für eine Mittel- 
wertbildung mitgezählt. 


Der große Vorteil dieses Programms liegt nun darin, daß einerseits der Summenabruf be- 
liebig oft wiederholt werden kann, aber daß dabei auch unterschiedliche Leistungsgrad- 
serien eingegeben werden können. Sollte man sich bei einer Einspeicherung der Leistungs- 
grade geirrt haben, ist ein Wiederholungsabruf und eine Eingabe geänderter Leistungs- 
grade kein Problem. Es könnten auch Grenzleistungsgrade festgelegt werden, um die 
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Schwankungen durch den Einfluß unterschiedlicher Leistungsintensitäten besser be- 
urteilen zu können. 

Bei der Zeitaufnahme ist oft mit einer Unterbrechung eines Arbeitsganges zu rechnen. 
Auch für diese Fälle ist vorgesorgt: Die Wiederaufnahme des zuletzt gemessenen Arbeits- 
ganges ist durch die Betätigung einer weiteren Taste möglich, durch die die Einrechnung 
der letzten Differenzzeit in den Speicher des noch nicht abgeschlossenen Arbeitsganges 
ermöglicht. 

In die gesamte Verarbeitung sind verschiedene Sperren eingebaut, die eine unbefugte In- 
betriebnahme eines bestimmten Programmzweiges zu einer falschen Zeit verhindern. 
Nach Beendigung der Aufnahme mit Betätigung der Stop-Taste sind weitere Einspeiche- 
rungen von Differenzzeiten nicht möglich. Andererseits ist vor Abschluß der Zeitauf- 
nahme die Anwahl einer Auswertung wirkungslos. 


Als Übungsbeispiel haben wir eine Produktionstätigkeit gewählt, die im Bereich der 
Hauptarbeitszeiten aus Zyklen besteht, die jeweils 6 Arbeitsgänge umfassen. Auch der Be- 
reich der Nebenzeiten wurde mit 4 möglichen Varianten nicht ausgenützt. Gemessen wur- 
den 10 Hauptzyklen; die Auswertung erfolgte zweimal, einmal mit und das andere Mal 
ohne Berücksichtigung eines Leistungsgrades für jeden Teilarbeitsgang. 


Speicherorganisation 


A(1) bis A(A) -— Arbeitsgangzähler 

T(1) bis T(A) Arbeitsgangzeitsummen 
A$(1) bis A$(A) — Arbeitsgangbezeichnungen 
L(1) bis L(A) Leistungsgrad in % 
N(1) bis N(B) -— Nebenzeitsummen 
N$(1) bis N$(B) — Nebenzeitbezeichnungen 
— Anzahl der Arbeitsgänge je Zyklus 

— Anzahl der Nebenzeiten 

— Zeitdifferenz 

— Endzeit 

— aktuelle Fortschrittszeit 

— Arbeitsgangindex 

MM.SS (Minuten, Sekunden) 

— laufender Index 

— letzter Index 

— HH (Stunden) 

— letzte Fortschrittszeit 

— Startzeit 

— Sperre 

— Zykluszähler 


Nxori- Ion mouDp 
| 
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12: 


20: 


3Bß: 


ap: 


sp: 


608: 


7D: 


92: 


122: 


185: 


"ZEIT":CSIZE 2 
:COLOR 8:S$="Z 
eıtstudiıe": T$= 
IKKIKKKN US" 
":PRINT T$;U$ 
ıS$; U$; T$ 
LF 1:60SUB 8B: 
LPRINT "XXX "; 
Sg," xxx": 
GOSUB 82:LF 1]: 
LPRINT "DEF Ve 
rarbe ıtung": 
GOSUB 98 
U$=" - Nebenze 
it FiW$=" - Ha 
uptzeit Ar-":X 
$='" beiıtsg 
ang " 
LPRINT "U - Vo 
rlauf":LPRINT 
"B - Zeitaufna 
hme":LPRINT "N 
- Auswertung" 
:LF 1:2LPRINT " 
Kıngaben: 
LPRINT "na";US$; 
"I"2LPRINT "S" 
ıU$; "2": LPRINT 
"D"Y3V$,"3": 
LPRINT "F"3UV$; 
"a"; LPRINT "G" 
ıU$; "5": LPRINT 
"HYSU$; gt 
LPRINT "J";3UV$; 
">"SLPRINT "K" 
ıUV$;"B"SLPRINT 
"LISUSK; gi 
LPRINT "Z";3W$; 
x$; "neu": 


LPRINT "X"3W$5 
x; "alt" 
LPRINT 'M - En 


de Aufnahme": 
GOSUB SB: LF 4: 
END 


:LPRINT "XXKXKKX 


KKKKKKKKKKKK": 
RETURN 

LPRINT "------ 
RETURN 

"U"rZIF CR-=B) 
AND (X=1>PRINT 
"Aufnahme ausw 
erten'"': END 
PRINT "Vorlauf 
"SCLEAR : INPUT 


11D: 
122: 


13B: 
14D: 


15B: 


16P: 
12B: 


18B: 
19B: 


2BB: 
212: 


215: 
22B: 


232: 
242: 


25B: 
26B: 


265: 


"Agg. Je Zyk lu 
s = "SR:IF A>B 
IF A<1IBBIF A- 
INT A=BTHEN 12 
1% 


GOTO 128 
INPUT "Zahl Ne 
benzeiten = ";j 


B: IF B>BIF B<l 
BIF B-INT B=2 
THEN 142 

GCOTO 128 

DIM ACA),AS$SCA) 
»L(CA>, TCA>, NCB 
I), N$CB):LF 2: 
LPRINT "Bez. H 
auptzeiten": 
GOSUB 8B:FOR I 
=1T0 A 

PRINT "Ayg"5l; 


’ 
INPUT AS$CID 
CLS :LPRINT "A 
rbe ıtsgang';]1; 
"2 "ZLPRINT " 
"SA$CI):NEXT 1 
:GDOSUB 9SB:LF 2 
:LPRINT "Bez. 
Nebenze ıten': 
GOSUB 88 
FOR 1=1T0 B 
PRINT "Nzt"5j]1; 


—_ Ne 
= 


J 
INPUT N$CI)D 


CLS :LPRINT "N 
ebenze ıt";1;'": 
":LPRINT " "3; 
N$C]) 


NEXT 1:GOSUB 9 
B:LF 4:END 
F=TIME :F=1B88%X 
CF-INT F):F=6B 
xXINT F+1BBXCF- 
INT F):D=F-L:L 
=Fi21IF J<>BLET 
NCJ>=NCJD+D: 
GOTO 24B 
TCHISTCHI+D:NAC 
H)=ACH)I+1 

J=1 

PRINT X$: END 
"B":1IF (CR=B) 
AND (CX=1DPRINT 
"Aufnahme ausw 
erten":END 
PRINT "Start Z 
eıtaufnahme": 


272: 


280: 


31B: 
322: 


36B: 
37B: 


382: 


398: IF I>BTHEN 258 


488: X$=N$C]):H=G: 
42B: 
432: 
440: 
a5p: 


4>D: 


482: 


5D2: 


S1p: 


52B: 
53B: 


."5":1=2:6C0T0 . 
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FOR 1=1T0 A 
AC1I)=B: TCI)=B: 
LCI3=B:NEXT 1: 
FOR 1=1T0 B 
NCI)=B:NEXT 1]: 
S=-TIME :L=182% 
(S-INT S):L=6B 
XINT L+1BBXCL- 
INT L3:G=B: 1=B 
:J=1:R=1:X=B:Z 
=B 
"a":1=1:GOTO 


WW 


"D":1=3:G0T0 3 

8D 

"r":;1=4:60T0 3 
3 
3 


."G":1=5:G0TO 


"H"51=6:60T0 . 


:"J":1=7:G0T0D 3 


"K":1=8:G0T0 3 
8 

"L":1=9 

IF X=1THEN 588 


COTD 22B 

"X": 1IF &X=1THEN 
588 

IF G=1ILET Z=2- 
1:G=A 
ACH)I=SACH)I-1:G= 
G-1 

"zZ": IF X=1THEN 
5BB 
1I=B:H=G:G=G+l: 
IF GPALET Gel: 
d=L2+] 
XE=A$CG)I:GOTD 
22B 

"M"'siIF xX=1l 
PRINT "Aufnahm 
e aboeschlosse 
n":END 

E=TIME :X$="En 
de Aufnahme":X 
=]:R=B:H=G: IF 
H=ALFET G=1:2=2 
+1 

COTO 228 
"N";IF R=l 
PRINT "Zeitauf 
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nahme ?": END 

335: D$="Auswertung 
"PRINT D$: FOR 
1=1T0 A 

342: LCI)=B:NEXT 1: 
INPUT "L-Grad? 

nein 1CENTER)? 
"3L:G0OTD 598 

SSß:FOR 1=1T0 A 

368: PRINT "LG:"5A$ 
C1);5" 7="5 

S7B: INPUT LI) 

S8Bß:CLS :LCI>=LC]) 
/1RB:NEXT ] 

59B:LF 2:LPRINT " 

"3D$: GOSUB 
8B:LPRINT "Zei 
ten ın Sekunde 
n" 

5S91:M=INT (INT < 
INT S/1BB)’1BB 
) 

392: T=1NT CINT S7/] 
DB)’/1BB: T=198X 
CT-INT T):T$= 
STR$ T:M$=STR$ 
M 

593:LPRINT "Datum: 

";T$,","3M$; 
"„"ZLPRINT "Be 
gınn: "5 1BBXCS’/ 
1BB-INT (S’/1RB 
3) 

394: LPRINT "Ende: 

"; 1BBXCE/1BB- 
INT CE7/1BB)) 
599:LF 2:LPRINT "H 


68P: 


61P: 
62B: 


632: 


642: 
641: 


645: 


65P: 


ouptzeıten": 
GOSUB 98: T=B: 
FOR 1=1T0 A 
LPRINT A$CI]ID2,T 
CID:T=T+TCI2: 
NEXT 1:GOSUB 9 
B:LPRINT "Summ 
e",T:LF 2: 
LPRINT '"Nebenz 
eıten'":GOSUB 9 
B:U=B 

FOR 1=1T0 B 
LPRINT N$CI]I),N 
CI: U=SU+NCID: 
NEXT 1:6G0SUB 9 
B:LPRINT "Summ 
e",uU:sLF 2 
LPRINT "Summe 
Hauptze ıten'", T 
LPRINT "Summe 
Nebenze ıten", U 
: GOSUB 9B: 
LPRINT "Summe 
besamtze ten", 
TrU 

Y=E:GOSUB ?2B 
K=M: Y=S: GOSUB 
728:K=K-M:LF 1 
LPRINT "Ges. 2 
eıt gemessen", 
K 

LF 2:LPRINT "D 
urchschnitts-" 
:LPRINT "Haupt 
ze ıten"; GOSUB 
98:M=B:FOR I1=1 
TOoA 
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66B:Y=TC1>7ACI:TF 
LCII<>DBLET Y=Y 
xX_C]D 
67B: M=N+Y:L$=STR$ 
LCII:T$=STR$ T 
CID:A$=STR$ AC 
I>:LPRINT A$CI 
):LPRINT " "; 
IF LCID<>B8 
LPRINT L$; "X"; 
69B:LPRINT T$;5"/";5 
Ag; "="5LPRINT 
Y:NEXT 1:GOSUB 
9B:LPRINT "Ges 
omtdurchschnit 
t",M 
?7BB:LF 2:LPRINT "D 
urchschnitts-" 
:LPRINT "Neben 
zeıten":LPRINT 
"Gesamt zyk len= 
"2:G0SUB 98:M 
=B:FOR 1=1T0 B 
71B:LPRINT N$C]D,N 
]1372:M=M+NC]I) 
/2:NEXT 1: 
GOSUB 9: 
LPRINT "Gesamt 
Jgurchschnitt", 
M:X=B:LF 4:END 
728: Y=Y’/1BB:Y=1B0X 
(Y-INT Y»:M=36 
BBEXINT Y:Y=1BB 
XCcY-INT YD:M=M 
+B5BXINT Y+r1BBX 
CY-INT YD: 
RETURN 


68P: 


1. Rechner an den Drucker anschließen und Programm mit RUN (ENTER) oder RUN 


“ZEIT” (ENTER) starten. 


2. Kontrollanzeige "+***** Zeitstudie ******"" mit (ENTER) löschen; Ausdruck einer 
Verarbeitungsanleitung in Übereinstimmung mit dem Beispielausdruck. Nach mehr- 
fachem Zeilenvorschub und Verlöschen der Anzeige bis auf das Bereitschaftssymbol 
ist der Programmvorlauf beendet. 


3. Arbeitsgangbezeichnungen eingeben: (DEF) V drücken. 


4. Kontrollanzeige ‘Vorlauf’ mit (ENTER) löschen. Wird diese Anwahl bei abge- 
schlossener aber noch nicht ausgewerteter Studie betätigt, erscheint der Fehlerhin- 
weis "Aufnahme auswerten‘. Die Anzeige verlöscht nach Betätigung der (ENTER)- 


Taste. 
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b. 


11. 


12. 


13. 
14. 


16. 
16. 


Bei Anzeige ""Agg. je Zyklus=_‘' Anzahl der Hauptarbeitsgänge eines Zyklus als ganze 
zwischen einschließlich 1 und 99 liegende Zahl eintasten und (ENTER) drücken. 


. Bei Anzeige "Zahl Nebenzeiten = _'' Anzahl der Nebenzeiten als eine zwischen ein- 


schließlich 1 und 9 liegende ganze Zahl eintasten und (ENTER) drücken. Sämtliche 
nachfolgenden Eingaben, auch die der Hauptarbeitsgangbezeichnungen, werden zur 
Kontrolle ausgedruckt. 


. Bei Anzeige "Agg NN = ‘ (NN = laufende Arbeitsgangnummer) (ENTER) drücken. 
. Bei Anzeige ""Agg NN = ?" Arbeitsgangbezeichnung mit höchstens 16 Zeichen (Buch- 


staben) eintasten und (ENTER) drücken. Werden längere Zeichenketten einge- 
speichert, werden nur die ersten 16 Zeichen berücksichtigt. Sind noch nicht alle in 
Punkt 5 angewählten Bezeichnungen eingegeben, wird so lange bei Punkt 7 fortge- 
setzt, bis die letzte Bezeichnung eingespeichert ist. 


. Bei Anzeige *Nzt N =" (N = laufende Nummer einer Nebenzeit) (ENTER) drücken. 
10. 


Bei Anzeige "'Nzt N = ?"' Nebenzeitbezeichnung mit höchstens 16 Zeichen eintasten 
und (ENTER) drücken. Die Fortsetzung erfolgt bei Punkt 9, so lange noch nicht alle 
in Punkt 6 angewählten Bezeichnungen eingespeichert sind. Sind alle Bezeichnungen 
eingespeichert, erfolgt nach Ausgabe der Bezeichnungen ein mehrfacher Zeilenvor- 
schub, worauf die Anzeige bis auf das Bereitschaftssymbol verlöscht. Der Rechner ist 
auszuschalten und vom Drucker zu trennen, damit die Zeitaufnahme selbst ohne 
Drucker vor Ort durchgeführt werden kann. 


Die Zeitaufnahme vor Ort nach Einschalten des Rechners mit (DEF) B starten. Wird 
der Fehlerhinweis "Aufnahme auswerten’ angezeigt, wurde ein neuer Startversuch 
ohne vorangehende Auswertung der letzten Zeitausnahme durchgeführt. In diesem 
Fall zuerst die letzte Ausnahme auswerten (siehe Punkt 14). 


Kontrollanzeige “Start Zeitaufnahme‘’ mit (ENTER) löschen; die Zeitaufnahme ist 
damit gestartet. Die erste Nebenzeitbezeichnung wird angezeigt. Man wird daher mit 
einer Rüstzeit (Vorbereitungszeit) beginnen, da das Programm grundsätzlich mit 
der ersten Nebenzeit startet. 

12.1. Start einer Hauptarbeitszeit und letzte laufende Zeit abschließen: (DEF) Z 
drücken. 

12.2. Einrechnen einer Hauptzeit in die zuletzt angesprochene Hauptzeitart nach 
einer Unterbrechung: (DEF) X drücken. 

12.3. Nebenzeit starten: (DEF) A, S,D, F,G,H, J, K, L drücken. Sind nicht alle 
Nebenzeittasten definiert, d.h. nicht alle genannten Tasten mit bestimmten 
Nebenzeiten belegt, ändert sich die jeweilige Anzeige dann nicht, wenn eine 
nicht definierte Taste gedrückt wird. 

12.4. Letzten Arbeitsgang abschließen und Aufnahme beenden: (DEF) M drücken. 


Kontrollanzeige “Ende Aufnahme‘ mit (ENTER) löschen. Rechner abschalten. 

Vor Zeitaufnahmenauswertung Rechner wieder an den Drucker anschließen und Aus- 
wertung mit (DEF) N starten. 

Kontrollanzeige “Auswertung” mit (ENTER) löschen. 

Bei Anzeige “'L-Grad? nein 1 (ENTER) _' über die weitere Fortsetzung entscheiden: 


16.1. Auswertung ohne Berücksichtigung von Leistungsgraden: Beliebige Zahl ein- 
tasten, (ENTER) drücken und bei Punkt 19 fortsetzen. 
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17. 
18. 


19. 


20. 
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16.2. Berücksichtigung von Leistungsgraden: (ENTER) ohne vorangehende Zahlen- 
eingabe drücken. 

Bei Anzeige "LG Arbeitsgang’ % = (ENTER) drücken. 

Bei Anzeige "LG ’Arbeitsgang’ % = ?’ Leistungsgrad in ganzzahligen Prozenten ein- 

tasten und (ENTER) drücken. Eingaben der Punkte 17/18 so lange wiederholen, als 

Arbeitsgänge in Punkt 5 eingestellt wurden. 

Ergebnisausdruck analog zum Testbeispiel. Nach Beendigung des Ausdrucks erfolgt 

ein mehrfacher Zeilenvorschub, und mit dem Verlöschen der Anzeige bis auf das Be- 

reitschaftssymbol ist die Auswertung beendet. 

Weitere Auswertungen mit oder ohne Berücksichtigung von Leistungsgraden können 

ab Punkt 14 aufgenommen werden. 


Fehlerhinweise: 


e ‘Ende Aufnahme‘: Nach Betätigung von (DEF) M können keine weiteren Zeitein- 


speicherungen vorgenommen werden; derartige Versuche werden mit dem genannten 


Fehlerhinweis beantwortet. 


e ‘Zeitaufnahme?’: Vor Betätigung von (DEF) M kann keine Auswertung vorgenom- 
men werden; die letzte Verarbeitung war nicht gestoppt. 

e "Aufnahme auswerten’’: Ein Programmvorlauf mit Eingabe der Arbeitsgangbezeich- 
nungen kann vor einer Auswertung nicht angewählt werden. 

e ‘Aufnahme abgeschlossen’: Nach Betätigung von (DEF) M können keine weiteren 
Einspeicherungen von Differenzzeiten vorgenommen werden; derartige Versuche wer- 
den mit dem genannten Fehlerhinweis beantwortet. 

© Keine Änderung der Anzeige: Betätigung einer nicht definierten Nebenzeittaste. 

KKKKKKKKKKKRIIKK Bez. Hauptzeiten Auswertung 

XXX Zeiıtstudiıe XXX KKKKKKKKKKKKKKKKKK KKKKKKKKKKKKKKKKKK 

KXKKKKKKKKKKKKKKKK Arbe ıtsgang |]: Zeiten ın Sekunden 

Eiınformen Datum: 26.11. 

DEF Verarbe ıtung Arbeitsgang 2: Beginn: 14.4688 

mom non nun Material Ende: 14.5417 

U - Vorlauf Arbe ıtsgang 3: 

B - Zeitaufnahme Herstellen 

N - Auswertung Arbe ıtsygang 4: Hauptzeiten 

Transportieren __-=--==------------- 
Eingaben: Arbe ıtsgang 5: Eiınformen 

A - Nebenze ıt |] Aus formen 62 

S - Nebenze ıt 2 Arbeitsgang 6: Material 

D - Nebenze ıt 3 Ruecktransport 38 

F - Nebenze it 4 77 -------------- - Herstellen 

G - Nebenze it 5 Bez. Nebenze ten 5] 

H - Nebenzeit 6 KKKKKKKKKKKKKKIKRK Transport ıeren 

J = Nebenze it ? Nebenze ıt ]: 92 

K- Nebenze ıt 8 Ruestzeiten Aus formen 

L - Nebenze ıt 9 Nebenze it 2: 56 

Z = Hauptzeit Ar- Verteilzeıten Ruecktransport 

beıtsgang neu Nebenze ıt 3: 24 

x - Hauptze ıt Ar- Materıalmansel 777-7270 -.- 

beitsgang alt Nebenze ıt 4: Summe 

M - Ende Aufnahme Masch ınenstop 365 


Cum me Gun mE Gum mem Gum ame Gab Gem üenp Gmme Dame Gums (nme Aue Gum men 


"am me dm Gut ES GUnm Gum Gut Gm du Gum Bub dimmm Guss Dei Gm Gum Gum 


3.12 Zinsenrückrechnung 


Nebenze ıten 


Ruestzeiten 


48 
VerteiıIzeıten 

1? 
Materıalmangel 

3l 
Masch ınenstop 

36 
Summe 

124 


Summe Hauptzeiten 
365 

Summe Nebenzeıten 
124 

Summe Gesamtzeıten 
489 


Ges. Zeıt gemessen 
489 


Beispiel zu 3.11 


Zeitstudien 
und 
Auswertung 


Durchschnitts- 
Hauptze ıten 


um mem aim use Gun bes im Dee rum Fun ame GER GE gruen a GER Gm Gen 


Eınformen 


62/1D= 
6.2 
Material 
387/18= 
3 
Herstellen 
5S1/1B= 
5.1 
Transport ıeren 
92/1R= 
9.2 
Aus formen 
56/1R= 
5.6 
Ruecktransport 
747/1B8= 
7.4 


vum Gun gu gun Gum gun Gi See Geis dEsiB gun um GEB guub GEB Gum Gun Gun 


Gesamt durchschnitt 
36.5 


Durchschnitts- 
Nebenze ıten 
Gesamt zyk len= 1B 


Ruestzeiten 


a 
Verteilzeıten 

1.7? 
Materıalmange | 

3.1 
Masch ınenstop 

3.6 


mm Dem gun De En gem He Gum Guam dEnE Gere mm me gms GEB gun arm Gen 


Gesamt durchschnitt 
12.4 
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Durchschnitts- 
Hauptzeıiten 
Einformen 
DB. 75%62718= 
4.65 
Material 
1X38712= 
3 
Herstellen 
1.1%X5171B= 
5.61 
Transport ieren 
D.85%X92/1B= 
7.82 
Aus formen 
B.7%56/1B= 
3.92 
Ruecktransport 
B8.95%X7471B= 
7.83 


besamt durchschnitt 
32.83 


Durchschnitts- 
Nebenze ııten 
Gesamt zuk len= 1B 


Ruestzeıten 


a 
VUerte:|zeıten 

1.7 
Materıalmangel 

3.1 
Masch ınenstop 

3.6 


Gesamt durchschnitt 
12.4 


3.12 Zinsenrückrechnung (Ratenkauf — Barkauf) 


Sonderangebote, oftmals von sogenannten besonderen Zahlungsbedingungen begleitet, 
gibt es nicht nur beim Verkauf von Konsumgütern. Ähnliche ""Verkaufsmethoden” fin- 
det man auch in anderen Bereichen des täglichen Lebens. 


Im Grunde genommen geht es dabei um das Herausstellen des Slogans "'Heute kaufen 
— morgen bezahlen‘. Dabei wird von der Annahme ausgegangen, daß der Barkauf (so- 
fortige Bezahlung bei Warenübernahme) den Käufer im Augenblick stärker belastet, als 
der Ratenkauf (Bezahlung erfolgt in periodisch gleichbleibenden Beträgen). Der Käufer 
weiß zwar meist auch, daß der Ratenkauf in Summe mehr kostet; er kann sich anhand der 
absoluten Zahlen ein Bild machen, um wieviel mehr er im Fall des Ratenkaufs auslegen 
muß. Er weiß allerdings nicht, zu welchem Zinssatz er den Ratenkauf angeboten erhält 
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und ob er nicht besser gefahren wäre, sich bei seinem Bankinstitut einen Kredit zu be- 
sorgen, als dem Lieferanten das Kreditgeschäft zu überlassen. 


Beim Versuch, Zinsen zu berechnen, stoßen wir sofort auf rechentechnische Probleme: 
In der bekannten Rentenformel 


ala 


R=A 
q’-1 


ist der Zinssatz p nicht leicht herauszurechnen. Überdies ist er im Wert q versteckt, in 
dem zwischen dem Zinssatz p und dem Aufzinsungsfaktor q folgende Beziehung ent- 
halten ist: 


q = 1+p/100. 


Das Rechenproblem besteht darin, daß q sowohl allein für sich als auch in einer Potenz q” 
gegeben ist. Nachdem wir hier nicht in Probleme der Logarithmierung einsteigen wollen, 
suchen wir unser Heil in einem anderen Lösungsvorgehen. Nachzutragen ist noch, daß in 
der Rentenformel R die Rate und A das Anfangskapital bedeutet. 

Weil unser PC-1500 sehr schnell arbeitet, werden wir den Zinssatz in Form einer iterativen 
Rückrechnung ermitteln. Die Iterationsrechnung wird mit einem angenommenen Zins- 
satz begonnen. Daraufhin wird geprüft, ob dieser Zinssatz dem der Rentenformel ent- 
spricht. Ist dies nicht der Fall, wird der Zinssatz geändert und erneut abgeprüft. Dies wird 
so lange fortgesetzt, bis aufgrund von Gleichheit auf beiden Seiten der Formel die Berech- 
nung abgebrochen werden kann. Dabei wird es ausreichen, den Zinssatz beispielsweise auf 
zwei Dezimalstellen genau zu bestimmen. Im Programm wird mit einem Zinssatz 100 % 
begonnen. In der ersten Stufe wird der Zinssatz von 10 zu 10 vermindert. Wird der tat- 
sächliche Zinssatz unterschritten, erfolgt als erstes eine Rückführung der Verminderung, 
der Verminderung des Differenzprozentsatzes auf 1/10 des letzten Wertes und ein neuer- 
licher Start. Dies geht so lange, bis nach Vorgabe der Genauigkeit in Form von Dezimal- 
stellen der richtige Prozentsatz gefunden ist. Das Programm ist dabei angewiesen, nach 
der letzten Operation die Berechnungen abzubrechen, so daß sich als Ergebnis rechen- 
technisch gesehen ein zu kleiner Prozentsatz ergibt, was aber dem Sinn der Operationen 
keinen Abbruch tut. Wesentlicher als die Tatsache, ob der Prozentsatz mit 7,782 oder 
7,183 errechnet werden sollte, ist die Größenordnung. Zwischen beiden genannten Wer- 
ten besteht ein anderer Zusammenhang, als zwischen 7,78 und beispielsweise 12,75! Die 
Verarbeitung kann mit oder ohne Drucker ausgeführt werden. 


Speicherorganisation 


— Laufzeit Jahre 

— Zinssatzdifferenz (10, 1, 0.1, 0.01, etc.) 
— Jahreszinsen 

Verhältnis Rate/Barwert 

— Jahresrate 

— Dezimalstellen 

— Barwert 

‚F,G,H — Hilfsspeicher 

Z — Verarbeitungskennzeichen 


AMA- "— PODND 
| 


3.12 Zinsenrückrechnung 


ID: "ZIRR":CLEAR : 
PRINT "XX Zıns 
enrueckrechnun 
9 xx" 

28:KZ=1: INPUT "An 
zeıge 1/Druck 
2CENTER)"SKZ: 
IF <cKZ<1DOR CK 
Z>2)OR CKZ-INT 
KZ<>B>THEN 28 

38: IF KZ=2CSIZE 2 
:COLOR B:LF 1: 
GOSUB 2?7B: 
LPRINT "Zıinssa 
tzberechnung": 


GOSUB 272 
aD: J=2: INPUT "Dez 
malen = "5)J: 


IF CJ<BIOR (J> 
EIOR (J-INT. IX 


>B>THEN 48 
SB: INPUT "Boarwert 
m "sK 


BB: IF CK<1DOR (K)> 
\E1B-1>THEN SB 

ZB: IF KZ=2LF 3: 
LPRINT "Barwer 
t =",K 

82: INPUT "Monatsr 
ote = "5;1:1=12 
x1:6C0OTD 1BD 

92: INPUT "Jahresr 
ote = ";] 


1BB: IF CI<1DTHEN 8 
D 

11R: IF KZ=2LPRINT 
"Monatsrate = 
"„1712 

128: INPUT "Laufzei 
t Monate = "5B 
:B=B/12:G0T0 1 
aD 

13R: INPUT "Laufze ı 
t Jahre = ";}B 

14B: IF CB<=B)OR (CB 
>99) THEN 128 

15B: IF KZ=2LPRINT 
"Laufze ıt Jahr 
e =",B:G6GOSUB 2 
8D 

168:N=B8:C=18B:0=17 
K 

178: N=D+C: IF D<=1B 
RBTHEN 2BB 

18B: IF KZ=1IPRINT " 
Ratenkauf unre 
ell":GOTO 248 

\98:LPRINT "Ratenk 


ouf unreell": 
GOSUB 288:G60TD 
248 


2BR:E=D/1BB:F=(CE+] 
IrB:G=F-1:H=EX 
F7G: IF H<ATHEN 
172 

21RB:ND=D-C:C=C/1R: 
IF C>=1Br-J 
THEN 17B 
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228:G0OSUB (J+29)X1 
Ra: IF KZ=1PRINT 
"Jahreszınsen 
=":3D;" 7":GOTO 


248 
238:LPRINT "Jahres 

zınsen / =",D: 

GOSUB 28B 


24B: USING : INPUT " 
Weiter? Jo. ICE 
NTER)":Z:GOTO 
5B 

2S5B: IF KZ=2LF 4 

262: END 

27B:LPRINT "KRKRIKKK 
KKKKKIKKKIXKKU: 
RETURN 

28B:LPRINT "------ 
RETURN 

298: USING "HHR": 
RETURN 

32B: USING "HRR.#": 
RETURN 

312: USING "HRR.HR" 
: RETURN 

322: USING "HHR.HHH 
"ZRETURN 


33R: USING "HHR.HHH 
#" RETURN 

348: USING "HRH.HHR 
##": RETURN 

358: USING "HRR.HHH 
#HHR"S RETURN 


1. Programm mit RUN (ENTER) oder RUN “ZIRR” (ENTER) starten. 
2. Kontrollanzeige ‘‘** Zinsenrueckrechnung **” mit (ENTER) löschen. 
3. Bei Anzeige “Anzeige 1/Druck 2 (ENTER) _' über die Art der Ausgabe entscheiden: 


3.1. Anzeige: 1 (ENTER) oder nur (ENTER) drücken. 


32. Druck: 2 (ENTER) drücken, worauf ein Verarbeitungstitel ausgedruckt wird. 


4. Bei Anzeige ""Dezimalen = _'" Genauigkeit in Form der gewünschten Anzahl an Dezi- 
malstellen als ganze zwischen einschließlich O und 6 liegende Zahl eintasten und 
(ENTER) drücken. Die Betätigung von (ENTER) ohne vorangehende Zahleneingabe 
bewirkt die Einstellung von 2 Dezimalstellen. 

5. Bei Anzeige ‘“‘Barwert=_‘ Barkaufpreis als zwischen einschließlich 1 und 9999999999 
gelegene Zahl eintasten und (ENTER) drücken. Die Eingabe wird zur Kontrolle bei 
entsprechender Anwahl ausgedruckt. 
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6. Bei Anzeige “Monatsrate = _'' entsprechenden Zahlenwert eintasten, (ENTER) 
drücken und bei Punkt 8 fortsetzen. Wird (ENTER) ohne vorangehende Zahlenein- 
gabe betätigt, kommt es zur Eingabe einer Jahresrate. 

7. Bei Anzeige “'Jahresrate = _'' entsprechenden Zahlenwert eintasten und (ENTER) 
drücken. Ob nun die Eingabe nach Punkt 7 oder 8 vorgenommen wurde, es wird in 
beiden Fällen als Kontrollausdruck die monatliche Zahlung ausgegeben. Die Betäti- 
gung von (ENTER) ohne vorangehende Zahleneingabe bewirkt die Wiederholung der 
Eingabe ab Punkt 6. 

8. Bei Anzeige "Laufzeit Monate = _'' Anzahl der Rückzahlungsraten eintasten und 
(ENTER) drücken sowie bei Punkt 10 fortsetzen. Die Betätigung von (ENTER) ohne 
vorangehende Zahleneingabe führt zur Einspeicherung der Laufzeit in Jahren. 


9. Bei Anzeige "Laufzeit Jahre = _" Kreditlaufzeit in Jahren eingeben und die Eingabe 
mit (ENTER) abschließen. Die Betätigung von (ENTER) ohne vorangehende Zahlen- 
eingabe bewirkt die Wiederholung der Eingabe ab Punkt 8. Ob nun die Laufzeit 
nach Punkt 8 oder 9 eingegeben wurde, zur Kontrolle wird die Laufzeit in Jahres 
ausgegeben. Eine Eingabedokumentation über die Anzeige ist in diesem Programm 
nicht vorgesehen, da bei Eingabeirrtümern ohne besonderen Zeitaufwand eine Be- 
rechnung sofort wiederholt werden kann, wenn über das erzielte Ergebnis Zweifel 
herrschen sollte. 

10. Die Ergebnisausgabe erfolgt je nach Anwahl über den Drucker oder die Anzeige; 
im zweiten Fall Ergebnisanzeige mit (ENTER) löschen. 

11. Bei Anzeige "Weiter? ja 1 (ENTER)_' über die weitere Fortsetzung entscheiden: 
11.1. Weitere Zinsrückrechnungen durchführen: Beliebige Zahl eintasten, (ENTER) 

drücken und nächste Verarbeitung ab Punkt 5 aufnehmen. 

11.2. Operationen beenden: (ENTER) ohne vorangehende Zahleneingabe drücken. 
Im Fall des Betriebes über einen Drucker erfolgt ein mehrfacher Zeilenvorschub 
zum bequemen Abitrennen des Druckstreifens, worauf in beiden Betriebsarten 
die Anzeige bis auf das Bereitschaftssymbol verlöscht. 

In diesem Fall und auch bei einem Wechsel in der Genauigkeit (Neuanwahl der Dezimal- 

stellen) ist mit einer neuen Verarbeitung bei Punkt 1 zu beginnen. 

In den einzelnen Testbeispielen findet sich ein Texthinweis "Ratenkauf unreell‘’; dieser 

Hinweis wird dann ausgegeben, wenn der Prozentsatz der Verzinsung über 100 % liegt. 

Durch eine Änderung in Programmzeile 17® lassen sich aber auch andere Grenzen ziehen. 

Im vierten Beispiel findet sich ein Angebot, das eigentlich einen zinsenloser Kredit dar- 

stellt. Nicht geprüft wird in diesem Zusammenhang, ob ein Verkäufer Geld verschenkt, 

wenn die Summe der Rückzahlungsraten kleiner ist als der Barwert. 


KKKKKKKKKKKKKKKKKK Barwert = 
Zınssatzberechnung 367BB 
KIKKKKKKKKKKKKKKKK Monatsrate = 
922 
Laufzeit Jahre = 
4 
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Barwert = 
4a58B08 
Monatsrate = 
958 
Laufzeit Jahre > 


km mn dem eu (eu dm Gun gewiß GE En Gun un ge un un dB Cm 


D.BBB 


Cm mn su gu au su deut Am gun mus FMEh Gum dem Gem Grin em Te dr 


Barwert = 
aB>7BB 
Monatsrate = 
968 
Laufzeit Jahre = 


mus Gum dem (un sum sun Gem (mm Grm sum (mmb sup AniS Grm Arm GEED ammn am 


3.157 


um Gen un Gum Anis Gb Gem Hmmm en (RE gib GEmE (emp (u aus Beim due mn 


Barwert = 
39882 
Monatsrate = 
93 
Laufzeit Jahre = 


"um wumm gms Gum dee gmmf Gmmn dump (mE Amas Genie GERD denb Gum um mn Get emb 


n.BBB 


> ume me je demie med een Gmiah Gem Omen Jeep Grub (pen EEE gmmm due Sue Bub drums 


Barwert = 
39888 
Monatsrate = 
938 
Laufzeıt Jahre = 


"om gun mm wu um pen Gun dem dene sum Gum Gmb gene (mem dumm (ie dumm Gras 


ol um gun gun mp gain Gm gun Aue mn dm mem Gem gun Bess Gens Hmmm are 
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Barwert = 
39888 
Monatsrate = 
1868 
Laufzeit Jahre = 
Jahresziınsen /% = 
42.467 
Barwert = 
398BDB 
Monatsrate = 
9382 
Laufzeit Jahre = 
4 


kam dm mn EM Srem Gen dei Guem mmB game amum (ar (runs (Mm (um ammm un Gm 


Beispiele zu 3.12 Zinsenrückrechnung 


3.13 Kredittilgung 


Die Erstellung eines Tilgungsplanes ist Grundvoraussetzung für die Abwicklung eines 
Kreditgeschäftes und liegt vor allem im Interesse des Kreditnehmers. Mit Hilfe dieses 
Planes kann der Finanzplan erstellt werden, der Auskunft über den zeitlichen Ablauf von 
Einnahmen und Ausgaben geben kann. Das vorliegende Programm zur Erstellung eines 
derartigen Tilgungsplanes für eine Kreditrückzahlung unterscheidet sich von anderen 
gleichartigen Lösungen durch den Umstand, daß hier von unterschiedlichen Kombina- 
tionen von Ausgangswerten ausgegangen werden kann: 


® Gegeben: Laufzeit Jahre, Zinstermine, Rate, Zinssatz; gesucht: Anfangskapital. 
® Gegeben: Anfangskapital, Laufzeit Jahre, Zinstermine, Zinssatz; gesucht: Rate. 
® Gegeben: Anfangskapital, Zinstermine, Rate, Zinssatz: gesucht: Laufzeit. 


Mit Zinsterminen sind die meist vierteljährlich im vorhinein vorgenommenen Verzinsun- 
gen gemeint (= 4 Termine); eine jährliche Verzinsung bedeutet 1 Termin. Die Rate ent- 
hält die Anteile für Kapitaltilgung und Zinsendienst. 


Alle drei der genannten Aufgabenstellungen münden in der Auflistung eines Tilgungs- 
planes; die Zinsen werden im vorhinein kapitalisiert. Einer Differenz nach Zahlung der 
letzten Rate wird keine Bedeutung beigemessen; im Beispielfall beträgt diese Differenz 
-0,41 DM. Es wurde um diesen Betrag zuviel eingezahlt. Es könnte auch vereinbart wer- 
den, daß ein sich allenfalls ergebender Differenzbetrag überdie letzte Rate ausgeglichen 
wird. Nicht berücksichtigt sind auch Nebenkosten bei der Kreditaufnahme; diese werden 
im vorliegenden Programm als Teil des Anfangskapital betrachtet. 


Das Programm kann nur mit Drucker gefahren werden. 
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Im Programm wird mit folgenden Grenzwerten gearbeitet: 

© Anfangskapital: Ganzzahlig zwischen einschließlich 1 und 9999999999. 
Rate: Ganzzahlig zwischen einschließlich 1 und Anfangskapital. 
Zinssatz: Größer O und kleiner oder gleich 100. 

Laufzeit Jahre: Größer O und kleiner 100. 


o 
o 
o 
e Zinstermine pro Jahr: Ganzzahlig zwischen einschließlich 1 und 52. 


Formelsammlung 


Ratenberechnung (gerundet auf Zahl mit 2 Dezimalstellen) 


a" (q-1) 
R = A: ——— 
q -1 
Anfangskapital (gerundet auf ganze Zahl) 
q"—1 
A=R:- m 
q (q-1) 


Laufzeit Perioden (gerundet auf ganze Zahl) 
logR-log(R+tA-A-d) 


n 
logq 
Legende A = Anfangskapital 
R = Rate 
n = Laufzeit in Perioden (Termine/Jahr : Jahre) 
q = Aufzinsungsfaktor (= 1 + p/10®) 
p = Zinssatz % 


Speicherorganisation 


A — Anfangskapital 
— Endkapital 

— Index 

— Kapitaldienst 
— Laufzeit Jahre 
— Perioden 

— Zinssatz Periode 
— Perioden/Jahr 
— Rate 
Restkapital 

— Zinsendienst 
-q 

— q- 1 = p/100 
_ q” 

- qa’-1 

— Zinssatz Jahr 


N<xs<-Hvr D vozrrr,m 
| 
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12: 


2B: 


302: 


ap: 


Sp: 


6P: 


7B: 


Programmlisting 3.13 Kredittilgung 


"TILG":S$="Til 
gungsplan":U$= 
"KKKKKN USE" 
"SPRINT U$;UV$; 
S$; V$;U$:CSIZE 
2:COLOR B:LF 1 
: GOSUB 48 
LPRINT " "Ss 
$:C6C0SUB 42:LF 
l:LPRINT "DEF 
Verarbe ıtung": 
GOSUB 58 
LPRINT "A - An 
fangskapıtal": 
LPRINT "S - Ru 
eckz. Rate": 
LPRINT "D - La 
ufze ıt":GOSUB 
SB:LF 4: END 
LPRINT "XXKXKKKX 
KKIKKKKKRKKRKU: 
RETURN 

LPRINT "------ 
RETURN 
"AFSPRINT "Anf 
ongskapıtqal": 
GOSUB 122: 
GOSUB 1D8B: 
GOSUB 18B: 
GOSUB 212:9= 
INT CRXY/CWKXD 
+,5):GOTO 248 
"S",PRINT "Rue 
ckzah lungsrate 
";GOSUB 92: 
GOSUB 122: 
GOSUB 15B: 
GOSUB 21B:R= 
INT CAXUXKX/Y+. 
5) 


Bedienungsanleitung 


Programm mit RUN (ENTER) oder RUN “TILG’ (ENTER) starten. 


Kontrollanzeige ”***** Tilgungsplan *****" mit (ENTER) löschen; Ausdruck einer 
kurzen Verarbeitungsanleitung. Verlöschen der Anzeige bis auf das Bereitschafts- 


1. 
2. 


symbol nach mehrmaligem Zeilenvorschub des Druckers. 


75: 
8B: 


85: 
92: 


lDB: 


12:1 
122: 


132: 


14B: 
150: 


16B: 
17D: 
18B: 
19P: 
2BB: 
212: 


222: 


GOTO 248 
"DFSPRINT "Lau 
fze ıt":GOSUB 9 
R:GOSUB 158P: 
GOSURB 18P: 
GOSUB 21R:N= 
INT <<LOG R- 
LOG (R+A-AAU)) 
-LOG Ur,5) 
L=INT (CN/P+.5) 
:GOTD 248 
INPUT "Anfangs 
kapıtal=";N 

IF cA<IDOR CA» 
IEIR-1IDOR (NA- 
INT A<>RDITHEN 


t Jahre=";L 

IF <LE=RBIOR (L 
>99) THEN 128 
RETURN 

INPUT "Per:ode 
n/Jahr=";P 

IF CP<=BDOR (CP 
>52>OR (P-INT 
P<>B>THEN 1582 


N=LXP: RETURN 
INPUT "Rate="; 
R 


IF CR<=BIOR (CR 
>=A)OR (R-INT 
R<>B>THEN 188 
RETURN 

INPUT "Zinssot 
zZ 1="32 

IF CZ<=BDOR (CZ 
»IRR>THEN 218 


Art der Berechnung eines Tilgungsplanes anwählen: 
3.1. Gesucht Anfangskapital: (DEF) A drücken. Nachfolgend sind bei Anzeige der 
entsprechenden Eingabehinweise und bei Beachtung der einleitend angege- 
benen Zahlengrenzen folgende Eingaben zu tätigen: Laufzeit Jahre, Perioden/ 


Jahr, Rate, Zinssatz. 


23B: 


26B: 


3RB: 


:LPRINT 


:LPRINT 
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0O=Z/P:W=0/1BB: 
V=W+rl:%X=UNN: Y= 
x-1: RETURN 


-LF 12LPRINT " 


Ausgongszahle 
n":GOSUB 48: 
USING "HHRHHHH 
HHRR.HR": 
LPRINT "Kapt"; 
N: E=RXN: S=A 
"Endw"; 
E:LPRINT "Rate 
"SRZUSING "HHRR 
HB. 5#":LPRINT 
"Zinssatz /";2 
"USING "HHRER" 
LPRINT "Laufze 
:t Jahre";L: 
LPRINT "Period 
en/Jahr ";P: 
GOSUB S5P8:LF 1: 
LPRINT Til 
gungsplan": 
GOSUB 48 


:FOR I1=1T0 N 
USING 


:J=INT < 
1-137P+12;T= 
INT C1BBOXSKUr. 
5)/1RB:K=R-T5S 
=S5+T-R:LF ] 
"Period 
e";1;", Jahr": J 
:G0OSURB 52 
USING "HHHRHRHHH 
SEHR": 
LPRINT "Tılg"; 
K:LPRINT "Zıns 
"3T:LPRINT "Re 
st";S:NEXT 1: 
LF 4:USING : 
END 
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32. Gesucht Rate: (DEF) S drücken. Folgende Eingaben tätigen und mit (ENTER) 
abschließen: Anfangskapital, Laufzeit Jahre, Perioden/Jahr, Zinssatz. 

3.3. Gesucht Laufzeit: (DEF) D drücken. Folgende Eingaben tätigen und mit 
(ENTER) abschließen: Anfangskapital, Perioden/Jahr, Rate, Zinssatz. 

4. Ausdruck eines Tilgungsplanes. Nach Beendigung des Ausdrucks und mehrfachem 

Zeilenvorschub zum bequemen Abtrennen des Druckstreifens verlöscht die Anzeige 

bis auf das Bereitschaftssymbol. Weitere Verarbeitungen können ab Punkt 1 oder 3 


aufgenommen werden. 


Aus dem Testbeispiel kann nicht entnommen werden, aufgrund welcher Ausgangslage die 
Erstellung des Tilgungsplanes vorgenommen wurde; schließlich ist es ja für dieses Pro- 
gramm unwesentlich, da bei sämtlichen Aufgabenstellungen alle offenen Fragen beant- 


wortet werden. 


XKKKKIKKIKKKKKKIKTK 
Tılgungsplan 
KIKKKKKKKKKKKKKKKK 


DEF Verarbe ıtung 

A - Anfangskopıtal 
S - Rueckz. Rate 

D - Laufze ıt 


“mn mn (ums Sm um zur Sean Gb m Gum Gmb AND demes denn Gmb meme (um ann 


Ausgangszahlen 
KIKKKKKKKKIKKKTKTK 
Kapt 12BBB8.BBD 
Endw 11324.088 
Rate 942.08 
Zinssatz / 7.75 
Laufze ıt Jahre 3 
Perioden/Jahr 4 


“mm um Gum un Gueii Gmm un GuEE grunb que GEEED GES Gun GuEm dis dm Gun Gm 


Tılgungsplan 
KKKKKKKKKKKKKKKKKK 


Periode 1, Jahr 1 


un mu u GE u den mb EEE un gun GET Gb mem Geb TEE gm Tue Fun 


Tılg 748.25 
Zıns 193.75 
Rest 9251.75 


“um m Gun mE GE u Gen m dumS gut GERD Gum Du Gum Gm Gen mu Gm 


Tılg 762.75 
Zıns 179.25 
Rest 8489.02 


Testbeispiel zu 3.13 Kredittilgung 


Periode 3, Jahr 1 


un ma dumm ums gut wein dei GuEE Gem Gen Gemb MET Dem um GER GE GE Gum 


Tılg 777.53 
Zıns 164.47 
Rest 7711.47 


Periode 4, Jahr 1 


om mm mu Gum Gum Gm eb (ums Gmb dumb Gun Gume (AM que ee Gin Game un 


Tılg 7932.59 
dıns 149,41 
Rest 6918.88 


Periode 5, Jahr 2 


“um mi m Gm (mb Gum gun GurE Gumb (ru (mai Gum Gumm Amis ums GE zum Gun 


Tılg 807.95 
Zıns 134.085 
Rest 6118.93 


Periode 6, Jahr 2 


“me mm mn Gum Gun Huan Hemden dei Gum Gm Gum ru Amen mr Ge u Ge 


Tılg 823.56B 
Zıns 118.48 
Rest 5287.33 


“m mm mu dumm gut Gum ums us ge Guume GE Gum um (mem Geb Gun dus un 


Tılg 839.56 
Zıns 182.44 
Rest 4447.77 


Periode 8, Jahr 2 


“m mu um dr Du em gem Bu gumb gu Gi gu Hu DE DE u 


Tılg 855.82 
Zıns 86.18 
Rest 3591.95 


Periode 9, Jahr 3 


“—— um gm um Gun em gu Gum Geil ger (mm Gum GnE Gin Gum Gt GE m 


Tılg 872.41 
Zıns 69.359 
Rest 2719.54 


—um Om um mes ED Gm gun Gm Gab Grms Gem Gmb Gem GEB Ge u GE 


Tılg 889.31 
dıns 52.6393 
Rest 1838.23 


— 1m un gu Te gr Guns Guil Aim deren Gin Gimme Hab DE me ge 


Tılg 925.54 
Zins 35.46 
Rest 923.69 


ame un une dene dem dem dem gu Bin ge in gun Gen de re 


Tılg 924.18 
Zıns 17.98 
Rest -B.41 
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3.14 Frachttabelle 


Mit Hilfe eines Computers lassen sich beispielsweise Frachtkosten unter Beachtung be- 
stimmter Voraussetzungen nahezu stufenlos berechnen. Ist ein Computer zwar vorhan- 
den, aber augenblicklich nicht für die Ermittlung von Frachtkosten einzusetzen, ist für 
diesen Fall der umgekehrte Weg der Kalkulation von Frachtkosten anhand einer Tabelle 
der bessere. Anhand von Frachttabellen lassen sich ebenso rasch Frachtauskünfte erteilen. 


Bei der Ermittlung von Frachtkosten gehen wir von folgender Formel aus: 


2 Wegstrecke km : Kosten je km 


Kosten je t = 
J Gesamtfracht t 


Die Kosten der Gewichtseinheit errechnen sich aus dem Produkt der doppelten Weg- 
strecke und den km-abhängigen Kosten geteilt durch die Gesamtfracht. 


In unserem Programm wird einmal von den Kosten je Streckeneinheit in km ausgegangen, 
die kleinste und die größte Wegstrecke festgelegt, die Abstufung der Tabellenwerte weg- 
streckenbezogen gewählt, sowie Mindest-, Höchstfracht und Frachtabstufung bestimmt. 
Die Frachtberechnung wird auf zwei Dezimalstellen kaufmännisch gerundet. Man könnte 
aber auch grundsätzlich nur aufrunden und die Tabellenwerte ganzzahlig darstellen; in 
diesem Fall müßte die Programmzeile 31® durch die folgenden ersetzt werden: 


3180: H=2*F»1»*/J: IFH-INTH<>BLETH=INT (H +1) 
315: USING “III”: TAB 1: LPRINT J; 


Währungsbezeichnungen können bis zu 8 Zeichen lang eingegeben werden. Wegen des 
Umfangs der Ausgaben wird dieses Programm nur mit Drucker betrieben. 


Speicherorganisation 


— Mindestfracht t 

— Höchstfracht t 

— Frachtstufe t (Unterschied von Tabellenwert zu Tabellenwert) 

— Mindestentfernung km 

Höchstentfernung km 

— Entfernungsstufe km (Unterschied von Einzeltabelle zu Einzeltabelle) 
— Frachtkosten je km 

— Index Entfernung km 

— Index Frachtt 

— aktuelle Frachtkosten je km bei gegebener Entfernung und Frachtgröße 


- no mo nwW> 
| 


128 


1B 


COLOR B: PRINT 
"XXX 2"3S$5" 
xXXXxX' 


14B: 


LPRINT "Hoechs 
tent fernung": 
LPRINT "km "5E 
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:"CARG":CLEAR : 13R: IF CE<=D)IOR (CE 26B:LPRINT "Gew.uUn 
S$="Fracht-Tab >3BB)OR CE-INT terschıed": 
elle":CSIZE 2: E<>BITHEN 1282 LPRINT "tr ";C 


:GOSUB 358 


:LF 12LPRINT 


Tabe | len-Wert 


2B:LF 1:GOSUB 348 158: INPUT "Untersc e":6GOSUB 34B 
«LPRINT "X "5S hıed km = "56G 288: FOR I1=DTO E 
$;" xX":GOSUB 3 168: 1IF CcG<1DOR (G> STEP G 
ad IB)OR (G-INT 6 29B:LF 1:LPRINT "E 
3B: INPUT "Waehrun <>BITHEN 158 nt fernung'"; 
9 = ";W$ I?7B:LPRINT "Ent f.U USING "HER8", 1 
4B: IF W$=""THEN 3 nterschied": ı" km":LPRINT 
D LPRINT "km "5G "Gew. t";TAB ( 
S8ß:LF 1:LPRINT " 188: INPUT "Mindest I5S-LEN WEI 5 WS; 


Ausgangszahle 
n":6G0OSUB 35P: 


ladegewicht t 
= "sQ 
IF cA<SIOR (A> 


"/km":GOSUB 35 
2 


USING "HSHHHN 192: 32B: FOR J=ATO B 
H.46#" 24)>0R (CA-INT A STEP C 
68: INPUT "km-Kost <>B)THEN 188 31B:H=1INT (C2BRXFXI 
en = "5F 2BB:LPRINT "Mindes ‘J+.5)/7/1RB: 
+B: IF F<=BTHEN 68 tiadegwicht':; USING "HH": 
8B:LPRINT "Fracht LPRINT "tr "359 TAB 1:LPRINT J 
rate Je km": 212: INPUT "Hoechst : 


IB: 


122: 


128: 
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LPRINT W$; TAB 
73F:USING "HH 
SHEHHHERHHHHR 
INPUT "Mindest 
entfernung = " 


;D 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "CARG” (ENTER) starten. 
2. Kontrollanzeige "'**** Fracht-Tabelle ****’ mit (ENTER) löschen; Ausdruck eines 


3. 


Verarbeitungstitels. 


220: 


23B: 


“ 


ladegewicht t 

= "3B 

IF cB<=A)OR (CB 
>24)0OR CB-INT 

B<>B)>THEN 212 

LPRINT "Hoechs 


32P: 


USING "HEHHHHHH 
4.44": TAB 6: 
LPRINT H:NEXT 
J: GOSUB 35B: 
NEXT I:LF 4: 
INPUT "Neue Ta 


IF CD<1RB)OR (D tiadegewicht": b? ja 1(ENTER) 
>3RB)OR (CD-INT LPRINT "t ";B "32:G0T0 58 
D<>BITHEN 98 248: INPUT "Unterch 332: END 

:LPRINT "Mindes ıedt = ";C 34B:LPRINT "XKKKKKK 

tent fernung": 258: IF cC<1DOR (C> KKKKKIKKRKKIKN: 
LPRINT "km ";D IB)OR CC-INT C RETURN 

INPUT "Hoesten >B)THEN 248 358:LPRINT "------ 

tfernung = "IE Tem "; 
RETURN 


Bei Anzeige “Waehrung = _" im Höchstfall 8 Zeichen umfassende Währungsbezeich- 
nung eintasten und (ENTER) drücken; Textausdruck ""Ausgangszahlen”. 


. Bei Anzeige "'km-Kosten =_’’ Frachtkosten je km Fahrstrecke eintasten und (ENTER) 


drücken; Ausdruck der Eingabe zur Kontrolle. Es werden nur Zahlen größer O ange- 
nommen. 
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6. 


10. 


11. 


Bei Anzeige “Mindestentfernung = _“ geringste Entfernung in km eintasten und 
(ENTER) drücken: Kontrollausdruck der Eingabe. Es werden nur ganze Zahlen zwi- 
schen einschließlich 10 und 300 angenommen. Werden andere Grenzwerte gewünscht, 
muß das Programm in Zeile 100 entsprechend geändert werden. 


. Bei Anzeige ""Hoechstentfernung = _' größtmögliche Wegstrecke in km eintasten und 


(ENTER) drücken; Kontrollausdruck der Eingabe. Es werden nur Zahlen zwischen 
einschließlich Mindestentfernung und 300 angenommen. Werden andere Grenzwerte 
gewünscht, ist das Programm in Zeile 130 entsprechend abzuändern. 


. Bei Anzeige “Unterschied km = _” Tabellenabstufung in km eintasten und (ENTER) 


drücken; Kontrollausdruck der Eingabe. Es werden nur ganze Zahlen zwischen ein- 
schließlich 1 und 10 angenommen. Werden andere Grenzwerte gewünscht, ist das Pro- 
gramm in Zeile 16@ entsprechend abzuändern. 


. Bei Anzeige “Mindestladegewicht t =_’ geringste Ladung in t eintasten und (ENTER) 


drücken: Kontrollausdruck der Eingabe. Es werden nur ganze zwischen einschließlich 
5 und 24 liegende Zahlen angenommen. Allfällige Änderungen in Zeile 190 vorneh- 
men. 


. Bei Anzeige “Hoechstladegewicht t=_‘ größte Ladekapazität in t eintasten und 


(ENTER) drücken; Kontrollausdruck der Eingabe. Es werden nur ganze zwischen 
einschließlich Mindestladegewicht und 24 liegende Zahlen angenommen (Änderun- 
gen in Zeile 22® vornehmen). 


Bei Anzeige “Unterschied t=_’ Gewichtsabstufung in t eintasten und (ENTER) 

drücken: Kontrollausdruck der Eingabe. Es werden nur zwischen einschließlich 1 und 

10 liegende ganze Zahlen angenommen. Allfällige Änderungen in Programmzeile 250 

vornehmen. Es werden nur soviele Einzeltabellen gewichtsabgestuft ausgedruckt, als 

durch die Entfernungsabstufungen sowie Mindest- und Größtentfernung möglich 

sind; mehrfacher Zeilenvorschub. 

Bei Anzeige ‘Neue Tab? ja 1 (ENTER) _" über die weitere Fortsetzung entscheiden: 

11.1. Weitere Frachttabelle berechnen: Beliebige Zahl eintasten, (ENTER) drücken 
und die neue Verarbeitung ab Punkt 3 aufnehmen. 

11.2. Berechnungen abschließen: (ENTER) ohne vorangehende Zahleneingabe drük- 
ken: die Anzeige verlöscht bis auf das Bereitschaftssymbol. Eine neue Verarbei- 
tung kann in diesem Fall nur ab Punkt 1 aufgenommen werden. 


KIKKKKKKKKKKKKKKKK QAusgangszahlen Tabe | len-Werte 
x Fracht-Tobelle X _=mmmmmmmmmmumun KIKKKKKIKKIKKKKKKK 
KKKKKKIKKKKKKKÄKKKX Froachtrate je km 


DM 2.58 Ent fernung SB km 

Miındestent fernung Gew. t DM/km 
km SQ 2 Tannen 
Hoechstent fernung 12 25.88 
km 88 12 28.83 
Ent f.Unterschied 14 17.86 
km 18 16 15.63 
Mindest ladegwicht 18 13.89 
L 1u7) 28 12.58 
Hoechst Iadegewicht 22 11.36 
t 24 24 19.42 
Gew.Unterschied .... mmmmmemmmunn 
t 2 
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Ent fernung 6B km Ent fernung ?B km Ent fernung 8B km 


Gew. t DM/km Gew. t DM/km Gew. t DM/km 
12 32.282 12 35.88 12 40.08 
12 25.88 12 29.17 12 33.33 
14 21.43 14 25.8B 14 28.57 
16 18.75 16 21.88 16 25.BB 
18 16.67 18 19.44 18 22.22 
208 15.88 28 17.58 28 28.088 
22 13.54 22 15.91 22 18.18 
24 12.58 24 14.58 24 16.67? 


. m gm Se gu gu gu Gern Gin GE (nah m dumm Gun Gem (ES Gumm Gum u Ham Am GmEn Drums Mus MEER mar GEEEE Dun Gem rare Gum Gern Gmb dns mm un de 
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Beispiel zu 3.14 Frachttabelle 


3.15 Handelswarenkalkulation 


Um keinen geschäftlichen Blindflug zu riskieren, bedarf es der Feststellung der Kosten für 
die Herstellung oder den Vertrieb von Produkten. Im Bereich einer reinen Handelstätig- 
keit gibt es die verschiedensten Voraussetzungen, eine Kostenrechnung und damit eine 
Kalkulation abzuwickeln. Kalkulationen im Handel sind aber trotz ihrer vielfältigen 
Formen leichter zu durchschauen, als dies in Produktionsbetrieben der Fall ist. 


Das vorliegende Programm kann nur eine Möglichkeit von vielen darstellen. Es wurde 
eine Reihe von Kostenarten eingebaut. Ein findiger Kopf kann das vorliegende Programm 
leicht auf seinen eigenen Bedarf zuschneiden; fehlende Bausteine lassen sich ebenso leicht 
einbauen, wie überflüssige entfernt werden können. 

Durch die eingebauten fixen Bezugskosten lassen sich losgrößenabhängige Kalkulationen 
ausführen (wie am Testbeispiel vorgeführt wird). Um den Vorgang leichter zu verstehen, 
wird das erste der beiden Beispiele ausführlich dargestellt. Aus dem Kalkulationsschema 
läßt sich dann auch leicht ein auf andere Weise aufgebautes ableiten und in entsprechende 
Programmänderungen umsetzen: 





Kostenart (Losgröße 1000 Stück) DM/Stück 
Listenpreis ab Lieferant 50,00 
Preisnachlaß 20 % — 19,09 
Frachtkosten 10 kg : 100/1000 + 1,00 
Bezugskosten 5090/1000 + 0,50 
Lagerkosten fix + 0,50 
Zwischensumme 42,00 
Gemeinkostenzuschlag 10 % + 4,20 
Einstandspreis 46,20 
Rohaufschlag 50 % + 23,10 
Verkaufspreis 69,30 


Das Programm bewältigt also nicht allein die Feststellung des Einstandspreises, sondern 
setzt zusätzlich auch den Verkaufspreis fest. 
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Als Teil eines umfangreicheren Programmes kann mit Hilfe der DATA-Anweisung und des 
Einbaues verschiedener Ausgangswerte eine vollautomatisch ablaufende Kalkulation vor- 
genommen werden, ohne daß nach jeder Kalkulation eine neue Eingabe erforderlich wird. 
Die Ausgangswerte stellen somit einen Teil des Programmes dar, der zu Beginn jeder 
neuen Verarbeitung in das Programm im Wege leicht durchführbarer Programmänderun- 
gen neu gestaltet wird. 


Wegen der Vielfalt an Ein-/Ausgabeoperationen ist der Betrieb mit einem Drucker sinn- 
voller, es kann aber auch mit Hilfe der Anzeige gearbeitet werden. 


Speicherorganisation 

A - Rohaufschlag % 

B -— Bezugskosten fix 

E — Losgröße Einheiten je Sendung 

F  _- Frachtkosten je Tonne 

G _ _-— Gemeinkostenzuschlag % 

L __-- Lagerkosten je Einheit 

P_ - Listenpreis je Einheit 

R — Preisnachlaß % 

T  - Masse (Gewicht) je Einheit in kg 

W -. Hilfsspeicher 

Z _-— Verarbeitungskennzeichen 

EP — Einstandspreis je Einheit 

VP — Verkaufspreis je Einheit 

18: "HAWA" CLEAR : “SPRINT "(DE haufschlug 
S$=:"Kalkulot io F)C: Rohaufsch I1B:LPRINT "X - Ko 
n ":T$="Hande | lag %° stentabe!lle': 
swaren":U$=" ?7B: PRINT "CDEF>IR: LPRINT UA = Ka 

"SPRINT " "55 Kalkulation‘: Ikulat ıon": 
$; T$ GOTO 142 GOSUB 13; 

28: Z=1: INPUT "Anz 8B:LF 1:CSIZE 2: GOSUB laB:LF 4 
eıge 1/Druck 2 COLOR B: GOSUR » END | 
CENTER>"SZ: IF 1208: LPRINT U$; 12B:LPRINT XKKKKCRKK 
(Z<1DOR (Z>2) S$:LPRINT U$;T KKIKKRRKRRICKT: 
OR (Z-INT 2<>9 $:G0OSUB 128:LF RETURN 
ITHEN 282 l:LPRINT "DER 132:LPRINT "------ 

3n: IF Z=2THEN 80 Verurbe ı tung": uenmmmnoon "ns 

ad: PRINT "CDEFDF! GOSUB 13B RETURN 
Frachtkosten SB: LPRINT ’F =- Fr 148: UL=1:GOSUB 19B 
p.T.":PRINT "c ochtkosten" ‚UL=B: IF Z=] 
DEF>B: Bezugsk 95:LPRINT "RB - Be END 
osten fix" zuaskosten": 158: "X": IF Z=1END. 

SQ: PRINT "(DEFIN: LPRINT "N - Pr 16B:LF 2:USING "Hifi 
Pre:snachlass eisnachlase" BHERRHHRR. SAT: 
@USPRINT "DE IAB:LPRINT ®L - La LPRINT © Kost 
F)L: Lagerkost gerkosten‘; en-Tabelle”: 
en p,Eht" LPRINT "G - Ge GOSUB 120: 

BB:PRINT "CDEFIK: me Iinkosten"; LPRINT "Frucht 


T: 


3 


Geımeınkosten LPRINT ''C - Ro kosten v. F 


132 


17BR: 


180: 


28B: 


:GOTD 
; IF UL=BEND 
:"B": INPUT 


LPRINT "Bezuses 
kosten fıx",B: 
LPRINT "Prei:sn 
ochlass ZT,R: 

LPRINT "Lagerk 
osten 2. Eht'", 


"Geme ın 
kosten %",G: 
"Rohouf 


chtkosten DT, 
=":F:6OTN 210 
198 


"Bez 
ugskosten Fıx= 


";B:60T0 240 


:GOTO 222 
: IF UL=BEND 
"N" INPUT 


"Pre 
ısnachlioss =" 


ıR:GOTO 27B 


:COTO 258 
: IF UL=BEND 


"LFI INPUT "Log 


erkosten o.Eht 
=":1L:2G0T0 388 


:G0OTO 288 
IF UL=BREND 
"a": INPUT 


"Gem 
eınkosten ="; 
6:G0TD 338 


;:C0OTO 31A 
: IF UL=BEND 
"CE INPUT 


"Roh 
oufschlag ="; 
N:GOTD 368 


:G0OTO 348 

; IF UL=BEND 
: RETURN 
"A" INPUT 


"Lis 
tenpre ıs=";P: 
GOTN 428 


:GOTO 382 
3: \NPUT 


"Muss2 k 
9="5,T:60TD din 


:CGOTO 422 
A: INPUT 


"Losyrüöe 
sse Eht=";F: 
GITN däy 


: GOTO 428 
1: EP=CP-PXR/ 12H 


TxF-/ IEDE:B-/E HL 
IKC1+G/1223): UP 


Programmlisting 3.15 Handelswarenkalkulation 


Bedienungsanleitung 


1. Programm mit RUN (ENTER) oder RUN "HAWA” (ENTER) starten. 
2. Kontrollanzeige "Kalkulation Handelswaren‘’ mit (ENTER) löschen. 


3. Bei Anzeige “Anzeige 1/Druck 2 (ENTER)_' über die weitere Fortsetzung ent- 
scheiden: 


3.1. 
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ann: 
455: 


AacßR: 


a>n: 


asu: 
4So. 


SnHR:; 
S1R: 
5282: 


=EPxX(C1+97/108) 
IF Z=ITHEN A488 
LF 2:LPRINT "K 
osten-Kalkulat 
on": GDOSUB 128 
USING "HRÖHREH 
Yyya.HH"; 
LPRIMNT "Listen 
pre:s",P: 
LPRINT "Musse 
kg", TZLPRINT 
Losgroesse Eht 


', E 
GOSUR 13P: 
LPRINT "Rınsto 


ndspre ıs", EP: 
LPRINT "Verkau 
fspre!s",UPi 
USING :GOTO 49 
2 
PRINT "E-Pra's 
="SEP:FRINT 
U-Pre:s =";,UP 
NUT "Weiter 
nen ICENTER) 
"SWIGOTO 512 
LOTD 386 
iF Zs2ur 4 
END 


Anzeige: 1 (ENTER) oder nur (ENTER) drücken und bei Punkt 4 fortsetzen. 


3.2. Druck: 2 (ENTER) drücken und nach Ausdruck einer kurzen Verarbeitungsan- 
leitung bei Punkt 5 fortsetzen. 


A. Anzeige der Verarbeitungshinweise, die jeweils mit (ENTER) abgerufen werden. 


5. Sämtliche Eingaben werden von Punkt 1 kommend automatisch angesteuert; sie 
können aber auch im Sinne einer Variantenrechnung einzeln angewählt werden, 
worauf nach jeder Einspeicherung die Anzeige bis auf das Bereitschaftssymbol ver- 
löscht. 


6.1. 


Nach Einzelanwahl mit (DEF) F bei Anzeige “Frachtkosten p.T. = _'' Fracht- 
kosten je Tonne eintasten und (ENTER) drücken. 
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5.2. Nach Einzelanwahl mit (DEF) B bei Anzeige "Bezugskosten fix = _’ die festen 
Bezugskosten je Sendung eintasten und (ENTER) drücken. 

5.3. Nach Einzelanwahl mit (DEF) N bei Anzeige "Preisnachlass % = _'' Rabatt in 
Prozenten eintasten und (ENTER) drücken. 

5.4. Nach Einzelanwahl mit (DEF) L bei Anzeige “Lagerkosten p.Eht = _‘’ Wert für 
Lagerkosten je Mengeneinheit eintasten und (ENTER) drücken. 

5.5. Nach Einzelanwahl mit (DEF) G bei Anzeige "'Gemeinkosten % =_'' Gemein- 
kostenzuschlag in % eintasten und (ENTER) drücken. 

5.6. Nach Einzelanwahl mit (DEF) C bei Anzeige "'Rohaufschlag % =_'' Rohauf- 
schlag in % eintasten und (ENTER) drücken. 

5.7. Nach Eingabe derletzten Kostenart verlöscht die Anzeige bis auf das Bereit- 
schaftssymbol. Die Auflistung der Grundkostenarten in Form einer Kosten- 
artentabelle in Übereinstimmung mit dem Ausdruck des Testbeispiels kann 
auch gesondert mit (DEF) X angewählt werden; wird aber zu Beginn auto- 
matisch ausgegeben. Allerdings bleibt die Anwahl bei Verarbeitung über die An- 
zeige wirkungslos. 


6. Eine Kalkulation mit (DEF) A anwählen. 
7. Bei Anzeige “Listenpreis = _'’ Preis ab Lieferant in der gewählten Mengeneinheit ein- 


10. 


11. 


tasten und (ENTER) drücken. 


. Bei Anzeige ‘Masse kg = _'’ Gewicht der bezogenen Mengeneinheit in kg eintasten 


und (ENTER) drücken. 


. Bei Anzeige ‘'Losgröße Eht=_'' Umfang der Bestellung in Mengeneinheiten ein- 


tasten und (ENTER) drücken. 


Daraufhin wird der Einstandspreis bei Betrieb über die Anzeige angezeigt, wobei auf 
die Anzeige des Verkaufspreises mit (ENTER) weitergeschaltet werden muß. Bei Be- 
trieb eines Druckers werden zuerst die Ausgangswerte und dann die Ergebnisse ausge- 
geben. 

Bei Anzeige ''Weiter? nein 1 (ENTER) _ über die weitere Fortsetzung entscheiden: 


11.1. Kalkulation fortsetzen: 
11.1.1. Gleichartige Kostenvoraussetzungen: (ENTER) ohne vorangehende 
Zahleneingabe drücken und bei Punkt 7 fortsetzen. 
11.1.2. Geänderte Kostenvoraussetzungen: Einzeländerungen ab Punkt 5 oder 
völlige Neueingabe ab Punkt 1 vornehmen. 
11.2. Verarbeitung abschließen: Beliebige Zahl eintasten und (ENTER) drücken, 
worauf die Anzeige bis auf das Bereitschaftssymbol verlöscht. Auch hier kann 
analog zu Punkt 11.1.2 weitergearbeitet werden. 


Der Einbau dieses Programms in eine umfangreichere Lösung, wie eingangs angedeutet, 
bedingt nicht nur die Vorgabe der Ausgangswerte in einer DATA-Liste, sondern auch die 
Entfernung der Verarbeitungsentscheidung nach Punkt 11 ab den Zeilen 490 und den Er- 
satz derselben durch eine Schleifenkonstruktion. 
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XKKKKKKKKKKKKKKKKKK 
Kalkulatıon 


Hande Iswaren Kosten-Tabelle Kosten-Kalkulatıon 
KIKKKKKKIKKKKKKKHK KKIKKKKKKIKKKKKKKK KIKKKKKKKKKKKRKKTK 
Frachtkosten p. T Listenpre ıs 
DEF Verarbe ıtung 128.08 58.88 
mm Bezugskosten fix Masse k9 
F- Frachtkosten 5ßB.BB 18.08 
B - Bezugskosten Preisnachlass 4% Losgroesse Eht 
N - Preisnachlass 28.822 1808.88 
L - Lagerkosten Lagerkosten p. Eht _-----=---------- - - -- 
G - Gemeinkosten D.SB Finstandspre is 
C - Rohaufschlag Cemeinkosten / 46.28 
x - Kostentaobelle Rohaufsch! 19.088 Verkaufspreis 
.- rohaufschlag / 69.38 
an Kalkulation 52.00 
Kosten-Kalkulatıon 
KKKKKKKKKKKKKKKKKK 
Lıistenpre ıs 
Testbeispiele zu 3.15 8.88 
Handelswarenkalkulation Masse kg 
18.088 
Losgroesse Eht 
5LRD.BD 
Kınstandspre ıs 
45.76 
Verkaufspreıs 
68.64 


Nachwort 


Wenn von Ihnen auch nicht alle der hier in der vorliegenden Sammlung zusammengefaß- 
ten Programme durchgearbeitet wurden, weil eben das eine oder andere nicht in Ihr An- 
wendungsgebiet gepaßt hat, so war doch aus den bearbeiteten Programmen heraus zu 
lesen, daß sich diese Programmsammlung von anderen schon allein durch die praxisbe- 
zogene Programmierung unterscheidet. Außerdem handelt es sich hier nicht um Pro- 
gramme, die unverändert und unbesehen zu betreiben sind, sondern um Lösungen, die 
zwar jede für sich, aber auch im Rahmen umfangreicherer Aufgabenstellungen ihren 
Dienst tun können. Auf die Beachtung entsprechender Schnittstellen zu anderen Pro- 
blemkreisen wurde fallweise aufmerksam gemacht. 

Demnach ist die vorliegende Sammlung nicht nur eine Summe von Einzelaufgaben, son- 
dern eine lebendige, immer wieder veränderbare Reihe von Problemlösungen, die mit 
den eigenen zu bewältigenden Aufgaben mitwachsen kann. 
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Mikrocomputern 
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Dietmar Herrmann 

Datenstrukturen in Pascal und BASIC 

Mit 12 Pascal- und 8 BASIC-Programmen. 1984. VI, 58. 
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Inhalt: Aufzählungs- und Unterbereichstyp — Menge — 
Verbund — Feld — Liste — Stack — Schlange — Baum — 
Heap — Graph. 
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Dietmar Herrmann 

Programmierprinzipien in BASIC und Pascal 

Mit 12 BASIC- und 13 Pascal-Programmen. 1984. VII, 59S. 
162 X 229 cm.Br. 

Inhalt: Top-down-Methode — Algebraische Umformungen 
— Rekursion — Iteration — Backtracking-Verfahren — Teile- 
und Herrsche-Prinzip — Heuristische Methoden — Greedy- 
Methoden — Rückwärtsrechnen — Simulation. 
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Band 7: 

PC-1500 Sammlung | 

Mathematik, Naturwissenschaft, Graphik, Spiele. 1984. VII, 102 S. mit 15 Progr. 
mit 1 Farbanhang. 16,2 X 22,9 cm. Br. 

Inhalt: Mathematische Probleme — Naturwissenschaftliche Probleme — Graphische 
Darstellungen — Spiele — Farbanhang. 


Band 9: 
PC-1500-Sammlung Il 


Uhr, Kalender, Ranglisten, Testauswertungen, Notendurchschnitte, Geometr'e, 
Zahlen. 1984. V, 71 S. mit 11. Progr. 16,2 X 22,9 cm. Br. 


Inhalt: Datum und Uhrzeit — Kalender mit Wochennummern — Bewegliche Feier- 
tage — Ranglisten — Testauswertungen — Notendurchschnitte — Dreiecksberech- 
nungen — Quadrat, Rechtecke, Kreis, Ellipse I — Römische und arabische Zahlen 
— Zahlen — Periodische Dezimalbrüche. 
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PC-1500 Sammlung III 


Schwingungsbilder, Graphische und perspektivische Darstellungen, Punktmatrix, 
Zahlwerk-Zeit-Umrechnung, Räuber-Beute-Beziehung, Magische Quadrate, Würfeln, 
Zinsen und Tilgungsplan. 1984. V, 94 S. mit 12 Progr. mit 1. Farbanhang. 16,2 X 
229 cm.Br. 

Inhalt: Erzeugung von Lissajousschen Figuren — Schwingungsbilder — Graphische 
Darstellungen mit READ-DATA -- Perspektivische Darstellungen — Punktmatrix- 
anzeige — Simulation eines Fließgleichgewichts — Magische Quadrate — Würfeln 
mit Zufallszahlen — Zinsen und Tilgungsplan — 12 Programme mit Farbanhang. 


